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I NTRODUCTION 

The program presented here are &et out far the individual who ha& a &peciiic 
need In mind. Becau&e a detailed dUcu&iion o£ the&e program would require a 
text several time* the pre&ent &ize o& thu Library It ha& been omitttd. Indi- 
vidual& who have a &peci$ic requirement will have, to be at leaht knowledgeable 
In the area the program 16 mitten about; ie: Statistical program require the 
u&er to be familiar with the tertru, mean, median, eta. This l& because the pro- 
gram cuie mitten in the vernacular ofi their subject matter. With this know- 
ledge alone, no programming expedience on the pant o& the u&eA i& required in 
order to use any oi these program in mc&t Ay&tem. Once it i& determined that 
a particular program may be useiul the user merely type* in a copy ofi the BASIC 
&ource code exactly a& it appears in the program luting. Then fallow the in- 
struction* fan tunning the program as presented In the Instruction portion oft 
the wnite up, immediately preceding the program. Also included in the wnlte up& 
one statements that appean. in the &ouAce code which may possibly need to be 
changed to Kan In the user's computer system; ie: RWP statements may have to be 
changed to FRAWP in ondeA to compile in certain systems. 



PUBLISHERS NOTE: Appendix B included at the end of Volume V was not 
mentioned in the preface by the author. We feel this appendix is 
the most important single item included in this library. We see 
this appendix as a fore runner that might lead the way toward 
standardizing a computer language among the manufacturers. This is 
in addition to the obvious benefits to all users of this Basic 
Software Library. 
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Business & Personal Bookkeeping Programs 

DESCRIPTION 

Computes price and interest for bond purchases. 

Analyzes the cost of building design proposals. 

Computes effective compound interest rates. 

Determines seasonal coefficients for two cycles. 

Makes a lease/buy decision for you. 

Makes a decision on whether to buy a component or make it. 

Calculates depreciation by k different methods. 

Cal. the most efficient assignment of resources and/or personnel 

Predicts your yearly cash flow. 

Performs monthly installment accounting. 

Computes interest accruals, monthly. 

Computes annual rates of return on investments. 

Makes a comparison of mortgage terms. 

Optimizes the layout for a plant, shop, office, etc. 

Determines your economic order quantity for inventory items. 

Performs an analysis of a pert network. 

Computes true annual interest rates. 

Computes lessor's rate of return for uncertain assets. 

Computes a lessor's rate of return after taxes. 

Schedules N jobs in a shop with M machines. 
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Games & Pictures 

DESCRIPTION 

Teach the computer all about animals. 

Land your spaceship on another planet. 

Advanced number game, numbers may be algebraic, few clues. 

Calculate your Bio-Life Cycle and plan your days. 

An advanced war game with big guns. 

Plays a regulation game of checkers. 

A dice game with hard way odds. 

Air fight w/missiles; betweeen a phantom and a mig. 

Plays any number of holes; inc. obstacle course. 

Have a rap session with Judy via your computer. 

Simple number game, all you have to do is unscramble them. 

Authentic horse race, any number of players. 

Gamblers delight, plays Las Vegas rules. 

Sky dive on another planet 

A war game between two tanks. 

Teach the computer to learn new things. 
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Introduction 

He's absolutely MAD! MAD! MAD! 

Our 35th. president. 

Loveable "Peanuts" character, w/blanket. 

A modern miss to put a twinkle in your eye. 

Former "United States" president. 

Christmas or anytime this is a beautiful creation. 

A true work of art for anyone's gallery. 

A message for all seasons. 

True and blue, he's the law. 

In banner form, perfect for decorating the mantle. 

That paragon of Dogdom even plays football. 

A picture you can read as well as see. 
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Evaluates and selects steel beam sizes. 

Calculates convolutions. 

Calculates low pass filter components. 

Performs interpolations by spline fits. 

Uses Gaussion Quadrature to do integration. 

Integrates a function by spline fits. 

Calc. and plots RF or Acoustic intensities. 

Calc. Long, and Lat. from interstellar fix or distance. 

Simulates a language compiler. 

Calc. the max. 6 min. values of funct. over a spec, interval. 

Calc. position from altitude and azimuth of celestial bodies. 

Calculates Blackbody energies, w/filter look-up tables. 

Calculates Sun and Moon positions, hourly. 

Calculates Power Spectral Densities and FFT's. 

Generates random numbers between and 1. 

Generates random integers between (X) and (Y) . 

Solves polynomials by "Bairstows Method". 

Solves any spherical triangle. 

Locates 50 stars (celestial). 

Calc. course and distance and incremental vectors. 

Solves for all parts of any triangle. 

Finds all variables in Basic programs. 

Calc. final position; given start and motion vectors 



vx 



TABLE of CONTENTS 



VOLUME TWO (CONT.) 



Part 4 - Plotting & Statistics Programs 
NAME DESCRIPTION 



Binomial 

Chi-Sq. 

Coeff 

Confidence 1 

Confidence 2 

Correlations 

Curve 

Differences 

Dual Plot 

Exp-Distri 

Least Squares 
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Plot 
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Calculates binomial probability distributions. 

Applies the Chi-Square test to samples. 

Calc. coefficients of fourier series to apprx. a function. 

Calculates confidence limits on linear regressions. 

Calculates confidence limits for a sample mean. 

Performs auto and cross correlations with plots. 

Fits 6 different curves by the least squares method. 

Calculates difference of means in non-equal variances. 

Plots two functions on the same sheet. 

Calculates exponential distributions for a sample. 

Performs least squares fit by linear, exp. , or power function. 

Compares 2 groups of data using the rank test. 

Plots 6 equations on the same sheet. 

Plots data points on standard teletypes. 

Performs least squares polynomial fit. 

Performs multiple linear fit with or without transformations. 

Finds the mean, variance and standard deviation. 

Computes various stat. measures for a variable. 

Calculates normal and T-distributions. 

Compares 2 groups of unpaired data. 

Performs one way analysis of variances. 

Analyzes a variance table of one way random design. 

Plots functions of X and Y. 
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Advanced Business Programs 

DESCRIPTION 

Performs posting and billing of accounts. 

Maintains data for inventory records. 

Computes payrolls with full set of deductions. 

Performs a risk analysis on capital investments. 

Performs the most effi. scheduling of men or resources to loca. 

Solves the problem of scheduling and assignments. 

Computes the value of stocks. 

Calculates the effects of a bond switch. 
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DESCRIPTION 

1 — 

An age old favorite. "B9, C23, D4, E13, F21, B!NG0! 

Computes the yields for a bond for different periods. 

If you ever dreamed of being a Matador, here's your chance. 

Take charge of the Enterprise while Capt. Kirk is on leave. 

Authentic NFL version of this well known sport. 

Calculates long-term predictions of funds. 

Plots the results of Funds 1. 

Ancient Chinese game of chance. 

Plays Blackjack, Las Vegas style. 

Life is truly a battle for survival, a real challenger! 

Calculates annuities, loans and mortgages. 

Generates unique maze puzzles for you to solve. 

Five card draw - for up to 5 players. 

Performs population projections for defined areas. 

Determines the profitability of a firms various depts. 

3-Dimensional Tic-Tac-Toe. 

Calc. the effective annual interest rate for stated interest. 

Calculates your Civil Service Retirement benefits. 

Computes savings plan profiles. 

Calculates repayment schedules for SBA loans. 

An all time favorite for young and old alike. 
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Andy Cap Draws this famous cartoon character. 

Baseball Plays a full 9 innings of baseball. 

Compare Compares two groups of data. 

Confid 10 Determines the confidence limits for a normal population. 

Descrip Provides a description of uni-variant data. 

Differ Computes the diff. of the means for data of equal variance. 

Engine Calculates the otto cycle of engines. 

Fourier This program evaluates fourier series. 

Horse Draws a picture of a horse. 

Integers Computes integers as the sum of other integers. 

Logic Determines conclusions from logic statements. 

Playboy Draws the playboy symbol. 

Primes Factors numbers into their primes. 

Probal Calc. Chi-Sq. and probabilities from 2X2 data sets. 
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Solves quadratic equations 

Draws a picture of the infamous Red Baron. 

Calculates linear regressions. 

"Beep! Beep!" Draws a picture of the Road Runner. 

Computerized "Wheel of Fortune", plays roulette. 

Old Saint Nick appears as jolly as ever. 

Calculates quantities for two groups of paired data. 

Computes sample statistics. 

Calculates steel beam capacities. 

Computes cost for surfacing a road or driveway, etc. 

Performs an analysis of a vari. table; one-way random design. 

Generates a "SINGING" Christmas card. 
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A Complete Business System 
NAME DESCRIPTION 



Ledger 



Maintains ALL Company accounts and generates ALL financial 
reports. Includes routines for: Pyrl , Inv, Depr, A/R, A/P, 
Balance Sheets and Profit 6 Loss statements, etc. 
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PREFACE 

The information contained in these pages represents the culmination of a 
very large project. That of compiling a versatile and complete Software 
Library that will be of use to a large number of diverse individuals. The 
programs presented here when combined in a system will represent a very 
powerful library bank. Such a work as this has been attempted in the past 
in such areas as cook books, electronic source books, mathematical tables 
and even computer games. But to date such a collection as this has yet to 
be offered to the average individual to use as he chooses. The word "at - 
temped" was used as no work is ever considered complete by everyone regar 
dless of its thoroughness. 

The programs presented here were chosen for their uniqueness and general 
usefulness. There should be at least one program included that will be of 
use to every type of individual whether they have access to a computer or 
not. Computers are a wonderful and very useful tool. Through this Library 
I hope to interest more people into becoming involved with computers. The 
Library is written so that little or no computer programming experience 
is required to invoke any of the programs. The programs that are present- 
ed here are all written in the computer language called BASIC. Each pro- 
gram has been successfully run on a G.E. 635 computer. The entire source 
code is presented as well as a short narrative page which defines the pro 
gram, tells who might be interested in using it, a brief set of instruc- 
tions or how to get them and then any limitations in the program are no- 
ted. In the limitations section the storage length in K Bytes is given so 
the prospective user will know how much memory to allow for the program. 
Where possible the amount of memory space required for full execution is 
given for the programs, this space is independent of the space already oc 
cupied by your BASIC compiler. 

The programs are broken down into five sections or parts. Each part deals 
with a specific type of program. Part 1 contains business type programs. 
These programs will be of interest to individuals who have businesses, 
play the stock market, balance their own checkbooks, do installment buy- 
ing, figure taxes, etc. There are a total of 20 programs in this section. 
Part 2 is the lighter side of the Library as it contains 16 games and 12 
picture programs. No computer library is complete without some fun. Among 
the games presented in this section is one called Checkers. The game is 
rather long but it is virtually machine independent as it doesn't use over 
lay techniques or use files. Most of the other games included here are as 
exciting as this version of Checkers. Each was chosen so as not to mimic 
others that the reader may have seen. The pictures are as unusual in their 
own way as are the games. Most of the pictures are spread over several pa 
ges, this was done not only so the reader will need to run the program to 
see the details of a particular picture but also in the hopes of getting 
as many of these programs into use as possible. As the picture programs 
are very simple it is an easy place for the novice to start learning about 
programming. 

Part 3 is comprised of Math and Engineering programs. Some of these programs 
will be of use to high school students, professional people, sailors, engi- 
neers, astronomers, airplane pilots, etc. Most of these programs are very 
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technical but they can perform every day calculations quickly and easily 
and they are extremely simple to use. There are 23 general usage programs 
presented In this section. 

Part k Is made up of Plotting and Statistical Analysis programs. These 
programs can be readily utilized by a number of people In widely differ- 
ent disciplines from fishermen to statisticians. The data gathered may 
be from a poll, a census, a test sample or even the number of fish cau- 
ght on various days. The stat programs will be of Invaluable aid to any- 
one who gathers data of any kind. The plotting routines will be of use 
to most of the people who use the stat programs or programs in Parts 1 
and 3. The plotting Is done on any standard teletype or terminal and 
does not require a special plotter or plotting terminal. There are a tot 
ai of five direct plotting programs and 18 stat programs in this section. 

All of the programs presented here may be run by simply typing the source 
code as listed, exactly as it is, into your computer. Now before the pro- 
gram will run it will have to be converted into machine code. This is done 
automatically and requires no forethought except to make certain the oper- 
ating system you are working In Is BASIC. In the larger computer systems 
you are asked what system you want — to this type BASIC; the smaller sys 
terns only have BASIC, in these you are O.K. 

Immediately following Part h is Appendix A. Here, all of the Basic State- 
ments used throughout these pages are defined. Each statement is explained 
sufficiently well to enable one unfamiliar with this subset to modify any 
necessary statements so that the program or programs will compile and exe- 
cute with the Basic compiler or interpreter available with their particu- 
lar computer. Most of the Basic compilers available today, that require 
more then 10K Bytes of storage, will execute all of the programs presented 
in these volumes with the possible exception of a few of the games and the 
program "Variable". Multiple line statements are not used in most of the 
programs and only a few programs use string manipulations extensively. A 
few of the programs may require more on line storage then is available on 
some of the small micro computer systems; these longer programs will not 
be executable due to the limited amount of memory. However most of the 
programs will execute in 10K Bytes of memory or less, thereby making most 
of the programs In this Library executable in virtually any Basic speaking 
computer without any required modifications. 

Volume III is comprised of ADVANCED BUSINESS programs, part 5- This volume 
as well as subsequent volumes are intended to make this Library complete 
and useful to all individuals. 

Each of these programs are written in a subset of the Dartmouth language. 
The specific subset is that which was used by General Electric on their 
635 systems. These programs have operated without problem on a variety of 
small and large machines even several of the new micro computers. The pro 
grams that use string manipulations may require slight modifications be- 
fore fully executing on some systems. These programs are mainly found in 
Part 2 — Games. 
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All of the programs In this Library were written or edited by the author. 
All of the programs edited by him were given for Inclusion, "swapped" for 
traded, or made public. A few of the original authors of the "swaps" are 
not known, for this I apologize. The others, unless specifically mentioned 
in the text, are presented here. In addition I would like to thank the fol 
lowing for their cooperation in making this work possible. 
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GENERAL 



PURPOSE 



PROGRAMS 



BINGO: 

DESCR] 

This program simulates that old family favorite "Bingo". The game is played 
between you and the computer, although another may play using the computer's 
card. The computer will tumble the balls and select the numbers at random. 



USERS 

Individuals who enjoy matching their luck against chance will like playing 
this game. Bingo will also appeal to persons who enjoy a leisure game of 
chance without the tension of house betting. 



INSTRUCTIONS 

After the program is loaded into memory type RUN. All necessary instructions 
and inputs will be prompted as this program is self instructing. For a de- 
tailed operation of the game, list the program. 



LIM I TATION S 

This program uses two dimensional arrays; see line 210. Line 230 contains a 
Restore statement and line 490 contains a SPC ( ) statement. The SPC ( ) 
statement is used to set the print position for the Bingo cards and could be 
replaced by a TAB ( ) statement, if your instruction set does not include the 
SPC ( ) instruction. A definition of the SPC ( ) statement can be found in 
Appendix A, in Volume II. The source code requires 6K Bytes of memory for stor- 
age and the program will execute in most 8K Basic compilers in only 7K Bytes 
of memory, this is in addition to the amount of memory required to store your 
Basic compiler. 
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i.-li.-i'-ai 

Pi 1 08 
01 10 

y i SO 

'•^ 1 Hh'J 
I 50 

s i 60 

J 70 
1 8@ 
1 90 

0£:80 
0£i0 

0££0 

0C 30 

88.48 
0250 
08,60 
0870 
0888 
0088 
0380 

0310 

8380 
0338 
8349 
0358 
8368 
0370 
0388 
839@ 
0488 
0418 
8488 
8438 
8448 
8458 
0468 
0478 
8488 



REM INSTRUCT I Or-IS — TYPE "PUN" HMD POL! ON INSTRUCTIONS. 



c- -ts- 



PEN * * * * * "-* MR IN PPOGRRM 
REM 

F=RNrn>i )■ 

PRINT 

PR I NT" YOU PRE NOW GOING T8 PLAY M COMPUTERIZED UERPTflN fiF 

LET F=i 

LET '■.■'—0 
LET U!=8 

DIM EC 18? 18) 

DIN LC753 ?R*t53 

RESTORE 

REFlD R£ ( 1 '} ? FN? ( P j ? R£ ( 3 ) ? R£ C 4 ) ? RS ( 5 ) 

IiflTfi B ? I ?M ?G ? "n " 

REM THIS SEQUENCE GENERfiTES THE CRRH NUMBERS (LINES £48- 

FOR Kl=l T8 75 

LET LCKl)=e 

NEXT Kl 

PRINT" " j " iiFRF's " ; 

IF F>1 THEN 348 

PR I NT "YOUR CRRD" 

GOTO 358 

PR I NT "MY CflPTi" 

LET M=16 

l_ET G=F+4 

FCR Y=F TO G 

FOR X=F TO G 

LET R=INTM*RNIUQ) j 

IF R<M--15 THEN 398 

IF LiR)<>0 THEN 398 

LET BCX?Yj=R 

LET L(R)=1 

NEXT X 

LET 11=11+15 

NEXT Y 

REM THIS SEQUENCE PRINTS THE CflRD (LINES 448-6703 

PRINT 
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4-'-$fi 


U 


500 





r: , 1 L"i 


8 


5£0 


8 


530 


!■•'! 


548 





558 


@ 


566 





578 





589 


@ 


590 





600 





6 i 8 





6 £8 


@ 


638 


0640 


!'."! 


658 


0668 





670 





680 





698 





700 





710 





738 





r'-jfei 





740 





758 





760 


8 


778 





780 





798 





888 





818 





8 ci8 





830 





348 





358 





868 





878 





888 





898 





988 


0919 





9£8 


8 


938 


8 


94@ 



PRJMT TAB i' 9) 5 "-IM- 
PRINT 
PRINT 
PRINT 

FOR Y=F TO G 

IF Bi>:jY:i=RiF+c'jF+£} THEM 588 
PRINT BCXjYi ? THE I'D ? 
GOTO 598 

PRINT TRBC39) ? "FREE"? 
NEXT Y 
NEXT X 
PRINT 
PRINT 
PRINT 
PRINT TAB (9) 5" 



SPC CIS);"-!-' 1 ? SPF C 1 £ ) ? " -N- " ? SPC 1 1 £ ) 5 " -G- " ? SPC ( 1 £ 3 5 " -0-" 



i950 



PRINT" CTFflR OFF AFTER MACHINE AUTOMAT I CALL Y ADUANCES PAPER]" 
FOR K9=l TO 9 
PRINT 
NEXT K9 

IF F=6 THEN 7£0 
LET F=6 
GOTO £70 
PR I NT- 
PR I NT "MOM HE' RE ALL SET TO PLAY THE GAME. USE H PENCIL TO MARK OFF" 
PR I NT "THE NUMBERS ON YOUR CARD AS THEY ARE CALLED. " 
PRINT" (PLEASE PLAY MY CARD AS WELL AS YOUR OWN)" 
PR I NT "DON'T GET SMART AND TRY TO CHEAT AS" 
PRINTTBIG BROTHER LOUES YOU." 
PRINT 

PRINT "ARE YOU READY"; 
INPUT R£ 

IF R$O"N0" THEN 858 
PRINT 
pp t f--|T " SJK!«ss»:siWffi : HURRY UP ' sffissswswffi » 

GOTO 788 
REM 

FOR Kl=l TO 75 
LET LTK11=8 
NEXT Kl 
PRINT- 
LET BOB? 33 =8 
l FT Bi'8'8'!=8 

REM THIS SEQUENCE GENERATES THE BINGO NUMBERS CLIMES 888-1188) 
LET U= I NT C 75*RND C Q 3 ) + 1 
IF LimOO THEN 938 
LET LCU}=1 
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0970 

0930 
0990 

1. 000 
1010 
1020 
1 030 

1 050 

1060 
1 07© 

1090 
1100 
1 1 10 

1 1 30 
1140 
1 150 

1 1 30 
1190 

1 300 

1310 
i£i!@ 

1 £40 



1 id'zte 
1 £60 
1£70 
1£8© 
1 £90 

1 3@0 

1310 
1 32Q 

J. -•"-•'-J 

1. 340 
1 350 
1360 
1 370 
1 330 
1 390 

1 400 

1416 

143.0 
1 430 



PRINT 

IF RNIUQ) > „i? THEN 1000 

PRINT" IT COMES UP: "tTfiH (30) » 

GOTO 1100 

IF RHINO) > „ 4 THFN 1030 

PR I NT " THE NUMBER I S'- " ? TAB (£03? 

GOTO 1100 

IF RND(Q) > .6 THEN 1060 

PRINT "ME HRUE ft; " ? TAB (30) ? 

GOTO 1 1 OO 

IF RND(Q) > .3 TME'N 1090 

PR I NT "IT'S ft : " ? TAB ( 33 ) ? 

GOTO 1130 

PR I NT " THE NEXT IPs"? TAB ( £0 ) ? 

PRINT R>( INT ( (U- 1) •••"153+i ) ?U 

REM THIS IS THE "NUMBER ON CRPB?" SEQUENCE (LINES 11 10-1260) 

FOR Y=l TO 10 

for :••:=-- 1 to 10 

IF B f X f Y 3 =U T HEN 1 £60 
NEXT X 

Kir~'..""r : .' 
i l!l.r*-t ! i 

LET F=l 

G0SUB 1310 

LET F=6 

GOSUB 1310 

Is- u=0 iHEfi 1340 

IF H=i THEN 1950 

GOTO £950 

IF W=0 THEN 930 

GOTO £130 

LET BC : <!Y3=0 

GOTO 1 1 50 

REM THIS IS THE BINGO DETERMINING SEQUENCE (LINES lP7fi-19!=;m 

PRINT 

REM THIS IS THE UERTICRL CHECK FOR BINGO®** (LINES 1370-1430) 

LET G=F+4 

FOR Y=E TO G 

FOR X=F TO G 

IF B(KjY3<>0 THEN 1460 

IF :*!<F+4 THEN 1450 

IF F=6 THEN 1410 

PRINT 

PR I NT" YOU* UE GOT ft BINGO®*®" 

LET W=l 

RETURN 

. r,. i f i ' 

PRINT" I 'UE GOT Fi BINGO®®® * *" 
LET U=1 
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1440 GO ! I4.-"'S 

i45fi next x 
1469 next y 

1470 rem THIS IS THE HORIZONTAL CHECK FOR BINGO*** (LINES 1450-1610) 

148@ LET G=F"+4 

1 4yg for ;>:;=f TO G 

1500 FOP V=F TO G 

1 510 I F B ( X ? Y 1 < >0 THEM J 630 

1580 IF Y«T+4 THEN 16S0 

1530 IF F=6 THEM 15S0 

1540 PRINT 

155© PR I NT" YOU ' UE GOT Fl E I N G * * *" 

1560 LET W=l 

1570 RETURN 

1580 PRINT 

1590 PRINT" I 'UE GOT B I N G * * * * *" 

1600 LEIT U=l 

1610 GOTO 1658 

1680 NEXT Y 

1630 NEXT X 

1640 REM THIS IS THE SLANT CHECK i'M=~l) FOP BINGO*** (LINES 1688-17701 

1650 LET X=F 

1660 LET Y=F 

1670 IF B(X?YK>8 THEN 1780 

1688 LET X=X+1 

1680 LET Y=Y+1 

1780 IF Y<F+5 THEN 1670 

1710 IF V=il THEN 1760 

1780 LET W=I 

1738 PRINT 

174@ PR I NT" YOU 'UE GOT RBI N G * * *" 

1750 RETURN 

1760 PRINT" I 'UE GOT fl BINGO**** *" 

1770 LET U=l 

1788 RETURN 

1788 REM THIS IS THE SLANT CHECK 01=1 ) FOR BINGO*** (LINES 1780-1958) 

1880 LET X=F+4 

1818 LET Y=X 

1888 IF B(X<Y)<>8 THEN 1938 

1838 LET X=X-T 

1848 LET Y=Y+1 

1858 IF Y<F+5 THEM 1388 

1868 IF Y=il THEN 1918 

1878 PRINT 

1888 PRINT"YOU 5 UE GOT RBI N G * * *" 

1898 LET W=l 

1980 RETURN 

1910 PRINT 
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1 939 

1949 
1950 
1 960 
1 970 
1 980 
1 99© 

£000 

£'020 
£030 
£040 
£050 
£066 
£070 
£080 
£090 

i"! l yy 

£110 
£ 1 £0 
£ 1 30 
£ 1 40 
£150 
£ 1 60 
£170 



PRINTOUT SEQUENCE' 



LET U-- 1 

RETURN 

REM THIS THE T 

PRINT 

PRINT" mma&$w : &# : && IT'S R TIE ss»i«$s«wi««s" 

REM THIS IS THE "PLAY AGAIN?" SEQUENCE 

PRINT 

PRINT "DO YOU HflNT TO PLAY AGAIN"? 

INPUT ES 

PRINT 

IE E$="YE8" THEN ISO 

STOP 

REM THIS IS THE "I WIN" SEQUENCE 

PRINT 

EOR S=i TO 6 

PRINT"! HIM. "5 

NEXT S 

PRINT 

PRINT 

GOTO 1 9S0 

REM THIS IS THE "YOU WIN" SEQUENCE 

PRINT 

PRINT" YOU HIN..... YOU NIH. . . . . . . YOU WIN 

GOTO 1 980 

REM 

END 
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BONDS : 

DESCRIPTION 

Bonds calculates bond yields to maturity for a bond. The yields are computed 
before and after taxes. The user must supply the tax rates, the redemption 
value, price, annual coupon and the maturity for the bond before any calcu- 
lations are made. This program is more comprehensive then the program BOND. 



USE R? 

Persons or companies interested in investing in bonds, or already having bond 
investments could benefit from using BONDS. 



INSTRUCTIONS 

The input data for the bond may be entered in data statements prior to program 
execution or it may be entered after execution through the prompting provided 
in the program. After the program has been loaded into memory, type RUN. Bonds 
will then ask if you want instructions. There are three valid responses to this 
question: YES, NO and DATA. If you answer YES, the program will prompt for the 
required inputs. If your response is NO, then you are expected to enter the 
seven (7) required data inputs. If the response is DATA, the program will expect 
to find the data previously entered in Data Statements prior to operation. Data 
for a sample problem is contained in line 190. 

L I MI TATIONS 

The program should execute in most Basic compilers with 5K Bytes of available 
memory. The source code requires 4K Bytes of memory for storage. 
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: ' :-iRE M DESCF: 1 PT I ON C OMPUTES BOND V I ELDS 

''5EEM 



40REM INSTRUCT I ONS 

100EEM THIS BASIC PROGRAM COMPUTES THE BEFORE AND HFTEP TAY 
119REM YIELD TO MATURITY OF fi BONH WITH ANNUAL COUPON OE C 
IF'SPEM DOLLARS ? REDEMPTION AT P DOLLARS? AND Fl MATURITY OE 
130EEM Ml YEARS AND MP MONTHS CMS NEED NOT BE AN INTEGER) ? AT 
148EEM A PRICE P„ THE TRY RATE APPLIED TO INTEREST RECEIPTS 
J50EEM IS Tii THE RATE APPLIED TO CAPITAL GAINS IS T£? 
160EEM PREMIUM ON PURCHASE AEOUE THE REDEMPTION AMOUNT IS 
165REM AMORTIZED OUE'R THE MATURITY AND DEDUCTED AT TiS DISCOUNT 
178REM AT PURCHASE BELOW REDEMPTION AMOUNT IS TOYED AT MATURITY 
175EEM AT RATE T£. 



I'^O CONTAINS DATA FOR A SAMPLE PROBLEM 



i C-dC'V'^ i T '•.!•:.' 

1 O'-f-psLn 

1 90 DATA 5 ? 1 88 ? 6 j 5 . F'5 ?9?5 . 5 ? . £5 
P0OREM 

£39 PRINT "DO YOiJ WANT INSTRUCTIONS FOR ENTERING DflTfl"? 

C.-rK} 11 irU i ^1-=- 

£58 PRINT 

£68 IF A£="DATA" THEN 508 

£70 IF A£="NO" THEN 468 

£88 PRINT "ENTER THE FOLLOWING DATA ITEMS" 

£98 PRINT 

388 PRINT "ITEM 1"? TAB (!<£);" ANNUA! COUPON (IN DOLLARS) "? TRB i'K31 5 

318 INPUT C 

3 £8 PRINT 

338 PRINT "ITEM £"? TAB CK£) ? "PROCEEDS ON REDEMPTION" S TRFnk'Al ; 

348 INPUT R 

358 PRINT 

368 PRINT "ITEMS 3 E 4" j TAB(E£) ? "MRTl IPITY IN YFAPs, MfUNTHR" °* T^B I'Ksl " 

378 INPUT Mi ? M£ 

388 PRINT 

398 PRINT " ITEM 5" 5 THE (K£) 5 "PRICE"; TAB CE3) 5 

488 INPUT P 

418 PRINT 

4 29 PRINT "ITEMS 6 S 7" \ TABCKE) j "TAY RATES HN INmflE- rpip GNs" i TAT* f K 

430 INPUT T1?T£ 

440 PRINT 
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450 GO TO 513 

4£g pf?ir-iT "ENTER ITEMS 1 THROUGH 7" I 

478 I NPUT C ? P ? M 1 ? MS ? P ? T 1 j T£ 

4 80 PRINT 

4 30 GO TO 510 

FiftFi RE'RTs C » R * M 1 5 M£ ? P ? T 1. ? TO 

5 10 PR I NT ,! COUPON "SO " PEDEMPT I ON AT " 5 R ? " PR I CE " 5 P 

c: IPPt PRINT "MATUPITY" ? Ml 5 "YEARS" < M£? "MONTHS" 

53Q print "TAX PATES'STl? "ON INCOME " ? T;?J "ON CAPITAL GAINS" 

540 PRINT 

545REM SEMI-ANNUAL COUPON 

550 LET C=C-"A 

555REM TIME TO MATURITY IN SEMI-ANNUAL COUPON PERIODS 

FiftB LET M3=M1^£-+M£v6 

565REM NUMBER OF COUPONS INCLUDING PINAL COUPON TO MATURITY 

570 LET M4=INT(M3) 

575REM TIME TO NEXT COUPON PERIOD 

580 LET M5=M3-M4 

5S5REN IS BOND SELLING AT A PREMIUM 

590 IE P<R THEN 6£0 

595REM SEMI-ANNUAL AMORTIZATION OF PREMIUM 

600 LET B=iP-RT'NM4+i) 

610 GO TO 630 

6£0 LET D=0 

685REM ATER TAX AND AMOTIZATIOH COUPON 

630 LET C£=C-CC-H)'«T1 

640 LET B=P-B*UM4+1.) 

645REM BOOK UALUE AT MATURITY 

650 LET G=T£*fR-B) 

655REM MARKET UALUE OF" BOND PLUS ACCRUED INTEREST 

6 6@ LET U 1 =P+C S = i: 1 -M5 ) 

665REM REDEMPTION PRICE 

670 LET U£=R 

675REM IS TIME TO MATURITY GREATER THAN THREE YEARS 

680 IE M3>6 THEN 710 

69S GOSUB 1310 

700 GO TO 7£0 

710 GOSUB 860 

715REM ANNUAL RATE OF RETURN 

7£0 LET Y=£*(EXPm~l) 

730 PRINT "YIELD BEFORE TAX" j lOO^Y? "PERCENT" 

740 PRINT 

745REM AFTER TAX MARKET UALUE PRESENT 

750 LET U 1 =P+C* ( 1 -M5 ) *U 1 -T 1 J 

755REM AFTER TAX SEMI-ANNUAL COUPON 

760 LET C=C£ 

765REM AFTER TAX MARKET UALUE AT MATURITY 
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"/' ~^" L~i 


LEI 


Ui : 


:'-"i 


-:!-G 


-"' -"' ETC 


:EM 




IS 


TIME 


788 


j. r 




/'6 


THEM 


79@ 


GOS 


>UE 


1 1 


Jl8 


888 


GO 


TO 


Oi 


58 



MflTUPITY GPEFITEP THfiH THREE YEfiRS 



81 SEEM ANNUAL RATE 8F RETURN 

8 £8 LET Y=£* ( EXP i'Y ) - 1 J 

838 PRINT "YIELD AFTER TRY" , iOe^Y? "PERCENT" 

848 8T8P 

858REM ALGORITHM EOR DETERMINING EXACT PATE OF RETURN 

868 LET Y - .8881 

87@ GOSUE 838 

838 LET D = Q- CUi+U;E'+C3 

898 IE AE8i!H--"U3) <. 88888885 THEN 93.8 

988 LET Y = Y-IV'US 

918 GG TO 878 

988 RETURN 

988 LET 8=U1 S EYP(Y^M53 

9 48 LET U 1 ~C& ( 1 ~- E YP ( -T14& Y 3 3 .-- ( E YP C Y ) - 1 3 

958 LET UP=U£*"€>IF'(~Y*M4) 

968 LET U3 = U£*M4~P*T15 

978 LET U3=U3+ ( C-" ( EXP i Y 1 - 1 ) T£ 3 * : ( EYP f Y 3 - ( M4.-"EXP ( Y* f M4- 13 3 3 3 

988 LET U3=U3+ ( C ■ ■" (EXP ( Y 3 - 1 3 T£ 3 s C ( M4- 1 "i -•- ( EYP ( Y* ( M4- 13 3 3 3 

998 RETURN 

1888REM ALGORITHM EOR DETERMINING EXACT RATE OE RETURN 

1818 LET Y=.8881 

18£8 GOSUE 1888 

1838 LET I3=Q— ('.-'1 +U£3 

1848 IF RES ( D--U3 3 < „ 88888E185 THEN 1878 

1858 LET Y=Y-Iiy"U3 

1868 GO TO 18£8 

1878 RETURN 

1888 LET U1=U3=8 

1898 LET Q=U1 

1108 LET U£=U£*T:XP(~Y*4133 

111© FOP I=0 TO 114 

1120 LET U1=LN+CSEYPC-Y^(M5+I}3 

1 1 30 LET U3=U3+ ( M5+ 1 3 ^C^EXP ( -V® ( M5+ 1 3 3 

1148 NEXT I 

1158 LET U3=U3+M3*ye*EXP(-Y3«M3) 

1160 RETURN 

1170 END 
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SAMPLE PROBLET 



"0 FIND THE BEFORE Fit I'D RFTER TAX YIELDS FOR R E 



OMDj ASSUMING THE FOLLOW I HO 



'DflTR: 1 - R £5 OHHURL COUPON? 2 - REDEMPTION URLUE OF $108? 



lATUEITV 



OF 6 YEARS 5-1/4 MONTHS* 4 - PRICE OF $91 

IHTERST RECEIPTS AND 00"; OH COPITRL GRINS. 



:: iriD TR ; : , ; RfHT'S OF 500 OH 



EXAMPLE #1 

RUM 

HO YOU HFlNT INSTRUCTIONS FOR ENTERING DATFi 
ENTER THE FOLLOWING HAITI ITEMS 

ITEM 1 OHHURL COUPOH (IN DO! LAPS) 

ITEM £ PROCEEDS OH REUEMPTIOH 

ITEM 3 4 MATURITY I IT YEARS? MONTHS 

ITEM 5 PRICE 

ITEM 6 S 7 TAX RATES ON INCOME? CAP CMS 



■1.i;lH 

•'£•< 0„ EO 



COUPON 
MATURITY 

TAX RATES; 



5 REDEMPTION AT 

YEARS 5.£S MOUTHS 
P. DM INCOME 



1.00 PRICE 

.PS OH CAPITAL GAINS 



YIELD BEFORE TAX 
YIELD AFTER TAX 



.'. ~i ok 



i-;Pi!: ; f : ,4 PERCENT 
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pi IM 



!'!!■!!■!] i'l j--':"|" r-!M H j [i :! 



i i • '! i 



! i ! 1 '!- PI I ii. P ;] ' 



NITF JTH-i'-: ! 11 ikO'. Ii.il- i , : ' 



! H ■■■! :•;«■-■■ 5 



COUPON 
MATURITY 
TRY PFlT'E". 



t. rii'- : 
. -• ON 



- r DC MPT J ON 



YIELD 'BEFORE TFi 
YIELD AFTER: TRY 






1PL 



iiri c. •!•!■::■ 



DO YOU RRNT INSTRUCT 'IONS FOR ENTERING DRTTi ?DF 



COUPON 
MATURITY 
TOY, RATES 



5 PETE NET I Oh 

*-. YEARS 5.E5 MONTHS 
Of-! INCOME 



!j|"jp T ]■ 



it. i r! 
YIEI D AFTER TOY 



c: ;j ::: ;pw : j<=,4 PE'RNFNT 
?. 907344 F'EPFENT 
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BULL: 

DE SCRI PTION 

In this program you will be transformed into a Matador. Have you ever been 
a Matador? Well, in any event you will have the opportunity to test your 
skill and courage in killing a bull or in the reverse being killed by a Bull! 



USE R S 

Anyone who is looking for a good, fast, moving game where the probabilities 
for "loosing" or "winning" are Equal, will enjoy playing Bull. This game is 
extremely unique and is full of unexpected events. 



INSTRUCTI O N S 

All instructions necessary for execution are included in the program. After 
the program has been loaded, type RUN; you will then be asked if you want 
instructions. If you type NO to this question the game will commence, any 
other response will yield the full set of instructions. The game is self 
contained and provides for all necessary inputs automatically. 



LIMITATIONS 

This program uses multiple line statements throughout, i.e.: lines 460, 730, 
780, 970, 1030, etc. In addition, line 413 contains a Restore statement. The 
source code requires 5K Bytes of memory for storage and 6K Bytes for execution. 
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i ! ' . h HI II ! i 

■] M MM MM' " M! i V: !i i b\\ \\ i'\ ! 



■ ■ ■ ■ '■ i • 



'-',;■. PT; TR M|- Mi- M: vi M ;"V BIG CHROME T M ;■ ; ■• ■■ l ULL " 

p,:;H' : 'PIHT n r!r j FRGH PARS MF THF BULL? YOU HOY Tt?Y" 
M^yPPIHT n n~i.iEPCiMl!"H! DANGEROUS INSIDE HO'JF 
;L :, 6tiPF'JNT' ! i=LE'F;S DANGEROUS OUTSIDE MO' >E i'JF" THF CFiPE? OR" 
c ;, 7 , RPPir!T ,i P=MRIiiriflPY MHTRL OF THE" CRPE" 

398PR I NT "INSTEAD OF THE' RBOUE? YOU MAY TRY TO KILL. THE BULL" 
300PRINT"ON ROY TUR! Is 4=0UER THE HORNS? 5= IN THE PHEST? ,! 
31 ©PRINT "BUT IF I HERE YOU? " 
3£8PRINT"I WOULDN'T TRY IT BEFORE THE SEUENTH PRSS" 

349PRINT"THE CROUP NILE DETERMINE WHAT RWARD YOU DESEPUE" 

350PRINT n POSTHUMOUSLY IF NECESSARY" 

360PRINT"THE BRRUER YON ORE? THE BETTER THE RNRPD YOU RECEIUE' 

370PPINT 

3S0PRINT ,! THE BETTER Fi JOB THE PICRDORES FIND TORERDORES DO?" 

390PRINT"THE BETTER YOUR CHANCES PRE" 

400 PRINT 

4 1 OPR I NT 

411 DIN ZO50) 

4 1 £ RE.m 

4 1 3 RESTORE 

4 i y pp j f-.jy " wshsie; 1 1 

438LET DC5)=1 
430LET DC4)=i 

4 48REM TYPE OF BULL 
450DIM L..5(53 

468 for x=i to 5\re:rd ! # C K 3 "--.next x 

478 DATA SUPERB? EXCELLENT? GOOD? FAIR? STINKY 

480 R=INTiRNDt~i)^5)+i 

490PRINT M YOU HRUE DRAWN A "? LsUA) 5 " HULL" 
580 IF A>4 THEM 530 
5101FA<£ THEN 556 
538G0T0 568 

5 30PR I NT ,! YOU ? RE LUCKY " 
548G0T0 560 
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!558PRINT"G00D LUCK* YOU'LL MEED IT," 

5 68REM P I CADCRES 

578PPINT 

588PRINT 

590LET A S= " P I CAPORES " 

638G0SUi> ibis 

618L.ETBM)=C 

b£0EEf1 TOPEflDORES 

638LET H$= " T0RERP0EE8 " 

648G0SUB 1619 

t> jbLC I U I.e. I — >_- 

660EEM PASSES 

670 PRINT 

6 89 IF Z=l THEN 131© 

6 98LET D i 3 } =D ( 3 ) + 1 

7Q0PRINT"PRSS NUMBER "? Dt8j 

7 IS IF DC 3X3 THEN 760 

7£0PRINT"HERE COMES THE BULL! TRY FOR A KILL"? 

730 input z:$\ir z-£="YES" then 113© 

740PRINT "CRPE MOVE"? 

758GOTO808 

760PRIHT"THE BULL IS CHARGING AT YOU! YOU ARE THE MATADOR — " 

770PRINT"DO YOU WANT TO TRY TO KILL THE BULL"? 

780 INPUT Z$MF z£="YES" THEN 1138 

798PRINT"MHAT MOUE DO YOU MAKE WITH THE CAPE"? 

800 INPUT E 

818IE EOINTiElTHEN 838 

8 88 IF E<3 THEN 858 

838PRINT "DON'T PANIC? YOU IDIOT' PUT DOWN A CORRECT NUMBER"? 

840GOTO 800 

858REM CHANCES OF BEING GORED 

8681 F E=0 THEN 928 

878IF E=l THEN 900 

888LET M= i--"£ 

890GOTO 930 

988L.ET M=£ 

9 1 ©GOTO 930 

9£8LETM=3 

938LET L=L+M 

'54@ F= ( f ,- H +n ,-~ i y ) s; RND ( - \ \ ,.-- \ ( D ( \ \ + D ( £ 1 +d ( 3 ) ..•- 1 } $5 ) 

958 IF F<. 51 THEN 660 

968PRINT"THE BULL HAS GORED YOU" 

9 78d7= i nt ( rnd i - 1 ) *:£ 3 + 1 \dn d7 THEN 938 ? 1 8 1 8 

988PPINT"Y0U ARE DEAD" 

998LET D(4)=1.5 

1800GOTO 1310 

1818PRINT"Y0U ARE STILL ALIVE" 

10£8PRINT"DO YOU RUN FROM THE RING"? 
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18>;8 INPUT z$Mf zt--"NO" THEN 1078 

i048PRIHT"C8WARD" 

1 W5t»LE ! LU. 4 J =N 

1868G0T0 1310 

1070PPINT "YOU ARE BRRUF". STUPID? BUT BRRUE" 

1080 f1 = int (rndi>13 s ?H r--.nN f1 eotd i@9fijJ.ilCi 

1090LET B(43=£ 

1 1 88G0T0668 

iil8PRINT"Y8U ARE GORED AGAIN" 

11E8GGT8 978 

1138REM THE MOMENT OP TRUTH 

1148LET Z=l 

1 158PRINT" IT IS THE MOMENT OP TRUTH. HOW DO YOU TRY TO KILL THE BULL"; 

1 1 68 1 r iPUT H 

1 1 78P0R -J=4T05 

11 88 IP H=J THEN 1238 

11 98 IF J=H THEN i£38 

1S88NEKT J 

1£18PRINT"Y0U PANICKED. THE BULL GORED YOU." 

1SR8G0I0 978 

1 838 k= ( 6-h 3 s: 1 0®rnd i. - 1 3 --' C CD C 1 3 +D ( £ 3 : «5*D (3)1) 

1840 IF 8=4 THEN 1298 

1£58IFK>.£THEN 968 

18b8PRINT ,! Y0U KILLED THE BULL" 

i£78LETDC53=£ 

i£88G0T0 1318 

1898IP K>.8THEN 960 

1 388G0T0 1 £60 

13I8REM CROWD HONORS 

13E8FRINT 

1338PRINT 

13 48 IF Df43<>8THEN 1398 

1358PRINT"THE CROUD BOOS FOR TEN MI MUTES. IF YOU EUER DARE TO SHON" 

1368PPINT ,! Y0UR FACE IN Fl RING AGAIN? THEY SHEAR THEY WILL KILL vm I — " 

1378PRINT"UNLESS THE BULL DOES FIRST" 

1388G0T0I588 

1 398 def fhc ( x J = I i. 4 . 5+ 1 ■■■■'&- CD ( 1 ) +D ( £ ) 3 s £ . 5+4 s ' : B C 4 1 +£*D f !=» "i -D f :-: l s^P 1 -•- 1 RR-r 'i «rnd f — * 1 

1 488 1 FD (43 < >£THEN1438 

1418PRINT"THE CROWD CHEERS WILDLY" 

1438G0T0 1458 

1438IF Di5J<>£ THEN 1458 

1448PRINT"THE CROWD CHEERS" 

1458PRINT"THE CROWD AWARDS YOU y 

1 468 d7=fnc f. 1 3 "\ if d7< £ . 4 then 1 578 

1 478 d7=fnc C 1 3 "'■•■ i f d7< 4 . 9 then 1 558 

1 488 d7=fne 1 1 3 "•• i r d7< 7 . 4 then 1 528 

1498PRINT"B0TH ERRS AND THE TAIL OF THE BULL" 

1588PRINT"8LE! YOU ARE ' MUY HOMBRE' ! OLE! OLE!" 
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151900101580 

1520PR IMF' BOTH E.RRS OF" THE BULL" 

1530PRINT"OLE! " 

1540G0T0 1580 

1550PRIf-iT"OME ERR OF THE BULL" 

1560G0T0 1580 

1570PRIMT"NOTHIMG" 

1580PRINT 

1590 PRINT "BO YOU WANT TO TRY OCR IN"? 

1591 input z£\ir z£="YES" goto 418 
1 600GOTO8838 

161 8 let e:=3^*r s rnd f - 1 ) 

1680 IF E<.37 THEM 1748 

1630 IF B<1^8 THEN 1 7£9 

1640 IF E<.63THEH 1700 

1658 IF B<„87 THEH 1680 

1660LET 0=1/10 

1670G0T0 1758 

1688LET 0=8/ I© 

169OGOTO1750 

170OLET C=3.'18 

1710GOTO175O 

1788LET C =4.-- 10 

1730 GOTO 1750 

1748LET 0=1^8 

1 750LET T= I NT ( 1 0*C+8.-- 1 8 ) 

1768PRINT"THE "5 fl$5 " TUB fi "3 Li-'T) ; " JOB" 

1770 IF 4>T THEN 1988 

1788 IF 5=T THEN 1878 

1 798 F 1 = I NT' ( RND ( - 1 ) ffi 8 ) + 1 ' v -dn f 1 GOTQ 1 888 ? 1 980 

1880 IF R$="TOREfiDORES" THEN 1888 

1818PRINT"0NE OF THE HORSES OF THE "JRS?" WAS GORED" 

1 880 F 1 = I NT ( RND l> 1 ) ® £' J + 1 --ON F 1 GOTO 1 830 ? 1 858 

1830PRINT"ONE OF THE "?R$; ,! WRS KILLED" 

1840GO TO 1988 

1858PRINT "NO "jflS; " WERE KILLED" 

1 S68G0T0 1 988 

1378 IF fi$="TORERDORES" THEN 1898 

1888 fI = int(rnd(-1)*S)+1nprint fi?" OF THE HORSES OF THE ' 

1390 f1 = int (rnd (-i) ffi S) + Imprint fI .5 "' OF THE "Jh^i" KILLED" 

1988PRINT 

1910RETURM 

£038 END 
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m YOU WFlMT INSTRUCT I ONS?YE'S 

HERE IS YOiJR BIG CHANCE TO KILL A BULL 



ON EACH PA:: 



riF 



TIE" BULL 5 YOU MAY TRY 



C^UIERON I CA (DANGEROUS I MS IDE riOUE" OF THE: CAPE)? 
1-T.ESS DANGEROUS OUTSIDE NOME OF THF CAPE? UP 



--ripri'' n 



Wi 



>WIRL OF THE: CFlPE 



lUSTEFlD OF THF Fi BO'. if 5 YOU MRY TRY TO KILi TE1F BULL 

OH AMY TURN: 4=0UEP THE HORNS? 5= IN THF' CEIEST" 

BUT IF I HERE YOU? 

I WOULDN'T TRY IT BEFORE THE SEUENTH PRSS 

THF" CROWD MILL DETERMINE WHAT AWARD YOU DESERUE 

priSTHUMOUSLY IF NECESSARY 

THE BRRUER YOU ARE? THF BETTER IMF HOARD YuU RFFEIUF 

THE BETTER fl JOB THE PICADOPES AMU THREAD! iRE S DO? 
THE: BETTER YOUR CHANCES ARE 



SIS: *:#::■£ 

YOU HRUE DRAWN A GOOD T:l ILL. 

THE" PICADORES BID Fl EXCELLENT JOB 
THE TOPEADORES HIP A EXCELLENT JOB 



PASS NUMBER 1 

THE BULL IS CHARGING AT YOU! YOU ARE THE MATADOR — 

BO YOU WANT TO TRY TO KILL THE BULLCYES 

IT IS THE MOMENT OF' TRUTH. HOW DO 'r'OU TRY TO KILL THE BULL?] 

YOU PANICKED, THE BULI GORED YOU. 

YOU ARE DEflD 



THE CROWD AWARDS YOU NOTHING 
DO YOU WANT TO TRY AGfllN'TNO 
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ENTERPRISE; 

DESCRIPTION 

The federation is in dire need of a commander to takeover the Enterprise while 
Captain Kirk is on leave. Prior military experience helpful as the Enterprise 
and a Klingon battle cruiser face each other in a simulated battle mission on 
your computer. Designed to test your abilities, this version of the game will 
require considerable skill on your part to avoid total destruction. GOOD LUCK! 



USER S 

Starfleet Captains and other individuals interested in keeping the Star Trek 
tradition alive and well, as well as having a lot of fun, will find this sim- 
ulation space battle both exciting and fascinating. **WARNING** This game may 
be habit forming — players have been known to become addicted! 



INS T RUCTI O N S 

Type RUN after the program is loaded and the program will ask you if you want 
instructions. The program is self instructing and easy to use. 



LIMITATIONS 

Line 230 contains a TAB ( ) statement, 670 an 0N__G0T0 statement and 2270 a 
Restore statement. Lines 330 and 2810 contain Multiple line statements. The 
source code is 7K Bytes long and the program will execute in 8K Bytes of mem- 
ory. For those of you experiencing extreme difficulty in bringing back the 
Enterprise in one piece, the weapon control constraints are located in lines: 
700, 800, 870, 2010 and 2020. 
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ENTERPRISE 



ENTERPRISE 



005U 

r >.r_ !'-,*■• 1 
0070 

OUyy 
0090 

j If! 

£• 1 30 

1 40 

1 59 

0169 
1 79 

i 8S 

1 90 

0£:00 

0210 

0220 
@£ 3@ 
0240 
0250 
0269 
0270 
0280 
0290 

0300 
0310 

0328 
0330 
0340 
0350 
0360 
0370 
0330 
0390 

0400 

0410 
0420 



F'PIMT " no von uhNT INSTRUCT I Or 

j. Mr U ! r !■? 

IP Hi="f!0" THE 11 350 

IF fl.?= i! rin M T!-!FM 350 



J-yC-C; np f.| 



"IMF iiOO ENTERPRISE IS rorFPONTED 



PR I! 

Op 1' r- 

PEN 

PRINT TFlT: i' 20 j 5 " WEAPONRY" 

OFl'j 

PRINT "2 FORWARD PHASER ERNES ? RRNGEs 300? 000 EM," 

PRINT "1 PFRP PHASER? RANGE: SAME" 

REN 

REN 

PRINT "2 FORWARD PHOTON TORPEDO ERNES? RRNGEs £-0,000 TO 600-000 kM. " 

REM 

PRINT "1 PERR PHOTON TORPEDO DAME? RRNGEs SAME" 

REM 

REM 

PRINT TAB C 15) 5" M A N E U U E R S " 

REM 

PRINT "1-FIRE FORWARD PURSERS " 

PRINT "2-F1RE PEAR PHASER" 

PRINT "3-FIPE FORWARD PHOTON TORPEDO" 

PRINT "4-EIEE REAR PHOTON TORPEDO" 

PRINT "5-ACTIUATE AUTO D I STRUCT" 

PRINT "6-SURRENDER" 

PRINT "7-RTTEMPT TO EREAE CONTACT—GO INTO WARP DP I UE" 

PRINT "S-MOUE CLOSER TO THE ELIHGON" 

PRINTxpRINT "ALL UECTOR HEADINGS WILL BE BETWEEN O AND ISO DEGREES" 

REM 

PRINT "ELIHGON CONING INTO RANGE—SHIELDS ON" 

REflD R ? H ? P ? X ? Fi 

DATA 85000 . ? @ j 9 j - 1 j 97 . 3394 

REM 

REM 

PRINT "WHAT IS YOUR COMPUTER DEFENSE NUMBER N.-25)"! 

INPUT N2 

IE N2<1 GOTO 40O 
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0439 IF N£>£5 GOTO 498 

0440 REM 
13450 REM 

0468 FOR I-i TO MS 

0478 B=RMDi>:) 

0488 NEXT I 

0498 GOSUB 1370 

0589 PRIMT "THE RANGE=" jRj " KM, AT H UECTOR HEADING OF "505" DEGREES 

O5I0 GOSUB 620 

05£8 IF H>8 THEM £568 

0538 IF E=6 GOTO £700 

0548 IF E=5 GOTO £610 

8558 IF RM-00000E+6 THEN £698 

0568 GOSUB 1100 

0570 IF P>8 GOTO £610 

0588 IF i<=7 GO TO 500 

0598 GOTO 498 

8688 REM 

O610 REM 

O6£0 W=£ 

0630 PRIMT "WHAT IS YOUR MOUE"? 

0648 INPUT E 

0658 GOSUB 1490 

0668 IF Q>0 THEN 630 

0670 ON E GOTO 680? 790? 8105 850? 980? 940? 980? 1038 

0688 IF fl>90 THEN 730 

0690 B=RNDCX) 

8788 IF B>.£ GOTO 778 

0785 REM THIS IS FOR THE FRONT PHFlSERS 

8718 PRINT "COMPLETE MISS? YOUR AIM IS OFF" 

07£8 RETURN 

0738 PRINT "MISS? INCORRECT UECTOR ANGLE" 

0748 PRINT "REMEMBER THAT BETWEEN 6 AND 90 DEGREES IS FORWARD" 

0750 PRINT " AND THAT BETWEEN 98 AND ISO DEGREES IS REARWARD" 

0768 RETURN 

0778 GOSUB £000 

0788 RETURN 

0790 IF A<90 THEN 730 

0880 IF B>.4 GOTO 770 

O803 REM THIS IS FOR THE REAR PHASERS 

0805 GOTO 718 

0810 IF A>90 THEN 730 

08£8 b=rndi;;::;;i 

0830 IF B>. 1 GOTO 770 

0835 REM THIS IS FOR THE FRONT PHOTON TORPEDOES 

0840 GOTO 718 

8850 IF A<90 THEN 730 

O860 B=RNDCX) 
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@87@ IF B>.£ GOTO ??0 

0875 REM THIS IS FOR THE REAR PHOTON TORPEDOES 

088O GOTO 718 

8898 REM 

0908 PRINT TAEf£83?"fl C T I U R T E B" 

0910 REN 

0988 PRINT "10 y S 7 6 5 4 3 8 1 0" 

0930 RETURN 

0940 PRINT "ON BEHALF OF THE KLINGON EMPIRE? I ACCEPT YOUR SURRENDER" 

0958 REM 

0968 PRINT TAB C £@3 5 "PREPARE TO BE BOARDED" 

0978 RETURN 

098O K=R+ f £88800 . *=RND i ft 3 3 

8990 IF R< 1.08088E+06 THEN 1018 

1088 RETURN 

1818 PRINT "CONTACT NOT BROKEN? NEW DISTANOE=" ? R? " KM." 

18S8 RETURN 

1838 IE R< £88880. THEN I860 

1 040 R=R-£08880 . ffi RND (. K 3 

1058 RETURN 

1 860 R=R --••'£ 

1078 RETURN 

i088 REM 

1898 REM 

1188 14=1 

1118 K=INTC C7SRNIm>;j 3+13 

11 £8 GOSUB 1498 

1138 IE N>0 THEN 1118 

1148 ON K GOTO 1 158? 1 158? 1 188? 1 188? 1 188? 1£38? 1£98 

1158 PRINT "KLINGON FIRES PHOTON TORPEDO" 

1 1 68 GOSUB £880 

1170 RETURN 

1188 PRINT "KLINGON FIRES PHASERS AT ENTERPRISE" 

1190 LET B=RNDi>:3 

1£06 IF B>.£ THEN 1 1 60 

1£18 PRINT "YOU OIJTMANEUUERED HIM? MISS." 

1££8 RETURN 

1£38 PRINT "KLINGON ATTEMPTING TO BREAK CONTACT...."? 

1 £48 R=R+ ( £08888 . &RND f K 3 3 

1£58 IF R< 1 . 88888E+86 THEN 1£78 

1£68 RETURN 

1£78 PRINT "CCNTACT NOT BROKEN" 

1£88 RETURN 

1£98 PRINT "KLINGON APPROACHING" 

138P IF R< £88000. THEN 1338 

1 3 1 a R=R-ci00888 . ® RND ( X 3 

13£8 RETURN 

1338 R=R^-£ 
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1349 RETURN 

1358 REM 

1366 REM 

1379 B=RMD(X) 

1330 IF B>.5 THEN 1410 

1 390 R=R+ ( 1 SQBQ^RND i X ) ) 

1400 GOTO 1488 

1419 r=rbs c r- c 1 0000«RNH f x ) ) i 

1 420 H=A+ ( 1 OO^RND ( X ) 3 

1430 IF fi>130 THEM 1458 

1440 RETURN 

1450 fi=fi-188 

1468 GOTO 1438 

1478 REM 

1480 REM 

1490 IF W=l THEN 1758 

1580 IF E<5 THEN 1530 

1518 Q=8 

1520 RETURN 

1530 IF E<3 THEN 1788 

1548 IF R>688888. THEN 1598 

1558 IF D=5 THEN 1658 

1568 IF R<£8080. THEN 159© 

1578 Q=8 

1588 RETURN 

1590 PRINT "THE RANGE OF fl PHOTON TORPEDO IS £8? 888 TO 6885888 KM." 

16PJ0 GOTO 1678 

1618 PRINT "YOUR PHFlSERS HAUE BEEN DESTROYED ALREADY" 

1688 GOTO 1678 

1638 PRINT "THE RANGE OF A PHASER IS 3881.888 KM." 

1648 GOTO 1678 

1658 PRINT "YOUR WEAPONS HAUE BEEN DESTROYED ALREADY" 

1668 GOTO 1678 

1678 PRINT "MOUE IMPOSSIBLE? TRY AGAIN" 

1688 Q=l 

1698 RETURN 

1788 IF R>30@0@0. THEN 1638 

1718 IF D=4 THEN 1618 

1788 IF D=5 THEN 1650 

1738 Q=8 

1748 RETURN 

1758 IF K>5 THEN 1880 

1760 IF K>8 THEN 1848 

1778 IF R>608880 O THEN 1888 

1788 IF R<£0880. THEN 18£8 

1798 IF H>7 THEN 18£8 

1888 N=8 

1818 RETURN 
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1839 RETURN 

184@ IF R>300888. THEN i8£8 

1859 IF H>6 THEN 1889 

1 860 N=0 
1870 RETURN 

1880 IF P>H+1 THEN 1950 

1890 IF P<H-1 THEN 1980 

1 900 N=a 

1910 RETURN 

1920 IF K=7 THEN 1880 

1 936 H=0 

1 940 RETURN 

1950 IF K=6 THEN 1880 

1 960 N=0 

1970 RETURN 

1980 REM 

1990 REM 

8000 E=RNDi>!) 

8810 IF E>„75 THEN 8188 

8880 IF E>. i GOTO 8050 

8030 PRINT "NEAR MISS" 

8840 RETURN 

8850 IF W=I THEN 8885 

8868 PRINT "HIT ON KLINGON BATTLE CRUISER" 

8870 H=H+1 

8088 GOTO 12388 

£085 IF B<.4 GOTO £83© 

£090 PRINT "HIT ON THE U8S ENTERPRISE? DAMAGE REPORT-" 

£l8o p=p+i 

£110 GOTO £180 

£180 IF W=I THEN £160 

£130 PRINT "DIRECT HIT ON KLINGON UESSELj DAMAGE REPORT-" 

£148 H=H+£ 

£150 GOTO £380 

£16@ PRINT "DIRECT HIT ON ENTERPRISE* DAMAGE REPORT-" 

£170 F-P+8 

£180 IF P<9 THEN ££10 

£198 D=l 

££O0 RETURN 

££10 IF P=6 THEN ££98 

£££0 IF P=7 THEN £318 

££3U IF P=8 THEN £348 

££40 IF P>3 THEN ££70 

££50 PRINT "SHIELDS HOLDING - NO DAMAGE " 

££60 RETURN 

££70 PRINT "SHIELDS WEAKENING - MINOR DAMAGE IN MIDSHIPS" 

££88 RETURN 

££90 PRINT "ALL SHIELDS DESTROYED - DAMAGE TO OUTER HULL" 

£300 RETURN 

£310 D=4 
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£3£0 PRINT "PHFlSERS DEPOT I MATED - T> I LITHIUM CHRYSTALS OUERHEnT I MG " 
£330 RETURN 
£348 D=5 

£35© PRINT "ALL WEAPONS DESTROYED - POWER DROPPING" 
if® PRINT "MAJOR DAMAGE TO WARP ENGINES" 
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£378 RETURN 

£330 IF H<9 THEN £41© 

£390 D=8 

£408 RETURN 

£410 IF H=8 THEN £530 

£4£0 IF H=7 THEN £519 

£430 IF H=6 THEN £490 

£440 IF H>3 THEN £470 

£458 PRINT "SHIELDS HOLDING - NO DAMAGE " 

£460 RETURN 

£470 PRINT "SHIELDS WEAKENING - MINOR DAMAGE" 

£488 RETURN 

£498 PRINT "ALL SHIELDS DESTROYED - HULL DAMAGE" 

£508 RETURN 

£510 PRINT "PHASER BANKS DESTROYED - MAJOR DAMAGE FORE AND AFT" 

£5£8 RETURN 

£538 D=7 

£540 PRINT "ALL WEAPONS ON KLINGON UESSEL DEACTIUATED? POWER DROPPING" 

£558 RETURN 

£568 PRINT TAB (15) s "C N G R A T U L A T I H S" 

£57© PRINT 

£580 PRINT "KLINGON UESSEL DESTROYED" 

£598 PRINT 

£600 GOTO £780 

£610 PRINT TAB (£0) 5 "ENTERPRISE DESTROYED" 

£6£0 PRINT 

£630 IF E=5 THEN £650 

£640 D=l 888 S RND C X ) -.GOTO £66w 

£658 D=i00008. *RND (X) 

£668 PRINT "RADIUS OF MATTER- ANT I MATTER EXPLOSION="? DP " KM." 

£670 IF R<D THEN £580 

£680 GOTO £700 

£698 PRINT "CONTACT BROKEN? RETURN TO BASE" 

£708 PRINT "AGAIN (YES OR NO)"?xGOTO £760 

£710 PRINT "STAR FLEET HAS DETERMINED THAT YOU ARE TOO BLOOD-THIRSTY" 

£7£8 PRINT "THEREFORE? IT HAS BEEN DECIDED THAT YOU WILL NOT BE " 

£730 PRINT "ALLOWED TO CONTINUE ON THIS RAMPAGE OF KILLING POOR" 

£740 PRINT "LITTLE DEFENSELESS KL I HGONS. ADMIRAL WESTLAKE? " 

£750 PRINT " STAR FLEET COMMAND "xGOTO £8£8 

£768 INPUT m 

£778 RESTORE 

£780 IF S4>=4 THEN £71© 

£790 IF fi$="MEs" THEN £818 

£888 IF ASO"YES" THEN £8£8 

£818 S4=S4+lxG0T0 358 

£829 PRINT "" 

£830 END 
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DO YOU FiFlMT INSTRUCTIONS (YES OR HO J ?YE.'S 
HHILE ON PRTROL NEAR TRISKELLION-7. . . 
THE USS ENTERPRISE IS CONFRONTED EY 
fl K L I H G H i: F'l T T L F C P U I S F R 

WEAPONRY 
8 FORWARD PHASER BANKS? RANGE: 308,800 KM. 
1 REAR PHASER? RANGE: SAME 

£ FORWARD PHOTON TORPEDO BANKS? RANGE: £6,000 TO 660,000 KM. 
1 REAR PHOTON TORPEDO DANK;. RANGE: SAME 

H A N E II U E R S 
1 - F I RE FORWARD PARSERS 
£-F IRE REAR PHASER 
3-FIFE FORWARD PHOTON TORPEDO 
4-FIRE REAR PHOTON TORPEDO 
5-ACTIUATE AUTO D I STRUCT 
6-SUERENDER 

7- ATTEMPT TO BREAK CONTACT— GO INTO WARP DRIUE 
8-MOUE CLOSER TO THE KLIMGOH 

ALL UECTOR HEADINGS WILL BE BETWEEN 6 AND ISO DEGREES 
KLINGON COMING INTO RANGE— -SHIELDS ON 

THE RANGE= 91338.36 KM. AT A UECTOR HEADING OF 144.9378 DEGREES 
WHAT IS YOUR M0UE34 
COMPLETE MISS? YOUR AIM IS OFF 
KLINGON APPROACHING 

THE RANGE= 45666.18 KM. AT A UECTOR HEADING OF 144.9378 DEGREES 
WHAT IS YOUR M0UE74 
COMPLETE MISS, YOUR AIM IS OFF 
KLINGON FIRES PHASERS AT ENTERPRISE 
NEAR MISS 

THE RANGE= 53897.81 KM. AT A UECTOR HEADING OF 62.66793 DEGREES 
WHAT IS YOUR M0UEY3 

DIRECT HIT ON KLINGON UE8SEL, DAMAGE REPORT- 
SHIELDS HOLDING - NO DAMAGE 
KLINGON FIRES PHOTON TORPEDO 
NEAR MISS 

THE RANGE= 63323.14 KM. AT A UECTOR HEADING OF 160.1475 DEGREES 
WHAT IS YOUR M0UE74 
COMPLETE MISS? YOUR AIM IS OFF 
KLINGON FIRES PHASERS AT ENTERPRISE 
HIT ON THE USS ENTERPRISE? DAMAGE REPORT- 
SHIELDS HOLDING - NO DAMAGE 

THE RANGE= 61266.69 KM. AT A UECTOR HEADING OF 169.9991 DEGREES 
WHAT IS YOUR M0UE72 

DIRECT HIT ON KLINGON UESSEL? DAMAGE REPORT- 
SHIELDS WEAKENING - MINOR DAMAGE 
KLINGON FIRES PHASERS AT ENTERPRISE 
HIT ON THE USS ENTERPRISE? DAMAGE REPORT- 
SHIELDS HOLDING - NO DAMAGE 

THE RANGE= 57123.84 KM. AT A UECTOR HEADING OF 154.9717 DEGREFS 
WHAT IS YOUR MOUE? 
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FOOTBALL: 

DESCRIPTION 

If you're a football fan this program should be right up your 50 yard line. 
This is an authentic football game simulation. The game adheres to the NFL 
rules and the play generated is as stimulating as you're up too. 



USER? 

NFL and AFL fans will find this game very enjoyable. The game will appeal to 
anyone who has an interest in football, regardless of their expertise. 



I NSTRUCT IO N S 

The program contains all necessary prompts and instructions for playing the 
game. To use — load the program and then type RUN. For detailed program op- 
erations list the program before playing. 



LIM I TAT I ON S 

This program uses the DEF FNX ( ) function and the FNX ( ) function exten- 
sively, starting in program line 1090. Line 2030 contains an ABS ( ) state- 
ment and line 6080 contains a Restore statement. The source code requires 
UK Bytes for storage and 13K Bytes of memory for storage and execution. 
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K10 REM THIS IS FOOTBALL 

130 REM THIS PROGRAM SIMULATES A FOOTBALL GAME 

149 REM THE USER CHOOSES HIS OWN TEAM AMU HIS OPPONENT AND THEN 

158 REM ACTS AS THE QUARTERBACK AND DEFENSIUE SIGNAL-CALLER Flip HTS TEAM 

154 REM THIS PROGRAM SAMPLES THE OPPOSITIONS PLAYS FROM A NriM-LINFAP TU'TT, 

£10 PKINT" THIS IS PRO-STYLE FOOTBALL. YOU WILL BE THE" 

££0 PR I NT "QUARTERBACK AND DEFENSIUE SIGNAL-CALLER FOP YOlip" 

£30. PR I NT "TEAM. YOU HAUE 14 OFFENSIUE P! AYS fft RUN:-.? ft PRRfiFRI " 

£ 40 PR INT" RMD 4 HEFENS I UE AL I GNMENTS . " 

£50 PRINT" THERE IS A TWO-MINUTE WARNING BEFORE THF END" 

£bO PR I NT "OF EACH HA! F. FIUE TO SEUEN PLAY?; RPE LEFT IM THE" 

£70 PR INT "HALF AT THAT POINT." 

£86 PRINT 

356 REM 

360 DIM A£C5) 

370 DIM B(153? D£(i0) 

390 FOR 1=1 TO 5 

400 READ A*- 

410 LET D$CIJ=At 

4£0 NEXT I 

430 DATA POINTS? FIRST DOWNS? YDS-RUSH? YTiS- -PflRS, YBR-RFNAL TY 

440 PRINT 

471 IF 18=1 GOTO 636 

47£ PRINT"DO YOU WANT A LIST OF PLAYS (YES hR Mm"! 

474 INPUT 19$ 

476 IF I 9$= "HO" GOTO 630 

477 IF I9$="N" GOTO 636 

480. PR I NT "CALL PLAYS AS FOLLOWS: " 

490 PRINT 

500 PR I NT "RUNS:" 

510 PRINT" 1=DIUE? £=OFF TACKLE? 3=SCISS0RS' 4=TPfiP" 

5£0 PRINT" 5=SNEEP? 6=0PTI0N? 7=PEUERSE; P:=DPAW" 

530 PRINT 

540 PR I NT "PASSES! " 

550 PRINT" 9=SIDELINE? i@=L.OOK-INJ I l=POL Lfil IT" 

5 60 PR INT" 1 £=SCREEN 5 1 3= ! FLY '5 14=' PORT ' " 

570 PRINT 

586 PRINT"KICKS: " 

590 PRINT" 15=FIELD GOAL? 16=PUNT? 17=QMir.K KIPK" 

600 PRINT 

610 PR I NT "CALL DEFENSES AS FOLLOWS:" 

6£0 PR I NT " 1 = ' PRO ' C 4-3 ) "? £= ' OK I E ' f 5-£ 1 5 3= ' SHnpT-YDG ' S 4= » PPE" 'ENT ' " 

630 PRINT 

680 PR I NT "YOUR TERM"? 
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RCK? BR! L ON 

ISSORS?TRRP 

tdeline 



698 INPUT r $ 

788 LET 0" .l)=fi£ 

718 PR I hi 

758 PP" NT "OPPONENT "5 

738 IhrUT B> 

748 PRINT 

758 LET 3$C3)=B5 

760 IF B$0-fl£ THEN 808 

778 PRINT" YOU APE "jfl$j". TRY flGRIN. " 

7' 88 GOTO 738 

880 REM 

830 DIM HC693 ?U(b93 ? E$(53) ?LC153 ?GC153 

849 FOR 1 = 1 TO 45 

858 RERB B$ 

368 LET E£(I)=D* 

878 NEXT I 

H88 DRTR YRRD ? K I CKOF F ? TOUCHBRCK ? RUNBl 

898 BRTR YRRDLINE?l!lUE?8FF TACKLE* SC 

908 BRTR SWEEP ? OPT ION ? REVERSE ? DRAW ? £ 

9 1 8 DRTR LOOK™ I M ? ROLLOUT ? SCREEN? FLY ? POST 

938 BRTR FIELB GGRL? PUNT? QUICK KICKjEXTRR PRINT 

938 BRTR PRO? OKIE? GOAL-LINE? PREUENT? PENALTY 

948 BRTR OFFS I BE ? HOLD I NG? INCOMPLETE? BATTED DOWN 

958 BRTR I NTERCEPT I ON ? LOSS ? NO Gfl I N ? GR I N ? FUMBLE 

968 BRTR TOUCHDOWN j SAFETY? GORL TO GO 

978 DRTR F I RST ? SECOND ? TH I RB ? FOURTH 

988 FOR 1=1 TO 14 

998 RERB LCI) ?GfI) 

1888 NEXT I 

1 8 1 8 DRTR 3 ? 7 ? 3 ? 1 8 ? 5 ? 1 5 ? 5 ? 88 ? 3 ? 1 8 ? 7 ? 1 5 ? 9 ? 35 

1888 BRTR 5? 15?5? 18? 5? 18?7? 15? 1@?38? 10?58? 18?48 

1838 H9=35 

1848 E9=58 

1 898 BEF FNF C X ) =S I N ( 3 .141 «RNB i -X ) ) 

1 1 88 T5=Q= 1 -3 w I N T l RN D C - 1 3 **3 3 

1118 IF Q>8 THEN 1158 

1138 PRINT OSC33 ? " WON THE TOSS RNB WILL RECEIUE. " 

1138 PRINT 

1 1 48 GOTO 1 388 

1150 PRINT 0SC13?" WON THE TOSS." 

1168 PRINT "DO YOU ELECT TO KICK OR RECEIUE"? 

1178 INPUT CS 

1188 PRINT 

1198 IF C£="KICK" THEN 1338 

1388 Q=-1* ; Q 

1318 IF Z9>8 THEN 5998 

1 8 £8 X=58- (. 1 8 S W 3 

1338 Y=38+INTi:48*FNFan 

1 348 PRINT Y? E£ CD? " " ? ES (3) 

1358 X=X+CQ^Y3 

1368 IF Q=l THEN 1398 
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1276 IF X>8 THEM 1358 

1280 GOTO 1388 

1290 IF X<108 THEM 1356 

1380 PRINT E£C33 

1318 D=8 

1 320 X=58+ ( 38 ; *Q ) 

1338 Q=-ISQ 

1348 GOTO 1488 

1358 IF P>14 THEM 1378 

1368 R=INT[48*FNFLi3 1 

1370 Q=-1*Q 

13S0 PRINT R? E$C13?" ";E$(43 

1 398 X=X+ ( Q ffi R 3 

1488 R=P1=8 

1410 GOSUB 1458 

1428 GOTO 1558 

1450 PRINT "BALL OH "5 

14 by IF X>58 THEN 149© 

1478 PRINT 0$(i] J " "5X5 

1430 GOTO 1588 

1498 PRINT 05(3)?" " JfiBSCX-lOOJ 5 

1580 PRINT ,! YARD LINE" 

1510 RETURN 

1550 ri=D+l 

i568 IF B>1 THEN 1598 

1 57y DEF FNT ( X ? Q J =RBS C X- ( ( (Q+ 1 1 .-£ 3 * 1 80 3 3 

1588 DEF FNU(X»Q)=flES(X-(((Q-l)^£)*I00)) 

1598 IF DOl THEN 1660 

1688 IF P8O0 THEN 1628 

1618 3=8 

1620 PRINT ESC 423 ?" DOWN "?0£ CflES(Q-£) 3 J 

163© IF FNTfX?Q3>18 THEN 1688 

1640 Gl=i 

1658 GOTO i718 

1 668 PRI NT Ef- ( 4 1 +D 3 5 " DOWN " ? 

1678 IF G1>0 THEN 17 19 

1 688 PR I NT " YARDS TO GO : " 5 flBS f 1 S-s 3 

1690 PRINT 

17O0 GOTO 1788 

1718 PRINT" ";E$C413 

1728 PRINT 

1738 REM 

1780 P8=8 

1798 P1=P 



300 UUSUB 5498 

318 IF Z>0 THEN 5398 

320 IF Q>0 THEN 226© 
839 liOTU £940 

340 IF D>1 THEN 1890 
870 P= 1 + 1 NT ( 3 . 5«RND ( - 1 ) 3 *:4 



1880 GuTO 2338 
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189© IF D>£ THEM ,='©80 

19£9 IF ABSC18-S3>3 THEN 195© 

1 93© P= 1 £+ 1 NT C 3*RND ( - 1 ) ) 

194a GOTO £330 

1950 IF P1>1£ THEN 187© 

I960 IF Pl>8 THEN 199© 

1979 P=P1+1 

1980 GOTO £330 

1 990 ON ( I NT ( £«RND i ~ 1 3 3 + 1 3 GOTO 1 87© , 1 97© 

£080 IF H>3 THEN £160 

£038 IF fiBStlO-S) >3 THEN £068 

£©48 P=i+4*INT (E*RND (-1 3 ) + INT t£*RND (-1 3 ) 

£958 GOTO £338 

£868 IF ABSC10~S3>6 THEN £888 

£870 GOTO 1970 

£080 IF ABS (16-83 >11 THEN £110 

£090 P=P1+1 

£10© GOTO 1970 

£ 1 1 © IF ABS C 1 8-8 3 < £5 THEN 1 938 

£1£8 P=17 

£i38 GOTO £33© 

£160 IF FNTCX«Q3>48 THEN £££8 

£178 IF RES C 18-83)3 THEN £198 

£188 GOTO £o48 

£198 IF FNTCX<Q3>£5 THEN £££8 

££88 P=15 

££18 GOTO £338 

£££8 P=16 

££38 GOTO £338 



>68 PR I NT "YOUR PLAY 



it « 



££78 INPUT P 

££88 IF P>17 GOTO ££86 

££8£ IF P<1 GOTO ££86 

££84 GOTO £338 

££86 PR I NT "WHAT KINUfi PLAY'S THAT? TRY AGAIN? TWINKLETOES. 

££88 GOTO ££68 

£338 PRINT E£iP+63 

£348 IF P<15 THEN £36© 

£358 ON P- 1 4 GOTO . £4 1 8 ? £668 « £738 

£368 L=L(P) 

£378 G=GCP) 

£336 IF Q<8 THEN 3818 

£398 GOTO £848 

£410 REM 

£4£0 Y= I NT ( FNF ( 1 3 *58 3 

£430 IF Y>.6*FNTiX?Q3 THEN £468 

£440 print ESC£13?" IS BLOCKED" 

£456 GOTO £5£0 

£ 468 I F Y< ( FNT ( X ? Q 3 + 1 © 3 THEN £5 1 9 

£470 IF „05+10-'FNTi:X ? Q)<RNHf-l) THEN £518 

£488 PRINT E£(£13?" IS GOOD!" 
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c'498 h"9='J 

i? 500 GOTO 5£88 

£ 5!0 PR I NT E£ t £115" FFi I L ED " 

£538 IF Y>FMTi>;?Qj THEN 1360 

£540 X=X+CQ«Y) 

£558 R=INT(FNFH3*Y) 

£568 GOTO £788 

£598 IF PHDC~i ) >,£8 THEN £638 

£688 PRINT E£f£4l?" FAILED" 

£6i'8 P9=8 

£6£8 GOTO 5398 

£638 PRINT E£i"£4)5" IS GOOD!" 

£648 GOTO 5198 

£660 REN 

£678 Y=£8+INT ( 38®FNF ( 1 } 3 

£688 PRINT Yj " YARD PUNT" 

£ 698 X=X+ i Q S Y 3 

£788 R=IMT(35*FHF(I) 3 

£7iS GOTO £738 

£738 REN 

£ 748 Y=30+ 1 NT ( £8 S FNF (1)1 

£758 PRINT Y! " YARD KICK" 

£ 7 6@ ; : - : ;=/ : !+ ( s Y 3 

£778 R=INTil8&FNFCll 3 

£788 GOTO 3968 

£848 IF Q<8 THEM £948 

£858 IF FNTiXjQ3>£0 THEN £888 

£869 D9=3 

£878 G0T8 3818 

£888 IF ABSC18--S3<£8 THEN £918 

£898 H9=4 

£988 G8T0 3818 

£918 D9=l + INT(£SRNri(-i) ) 

£9£8 GGTO 3818 

£948 PR I NT" DEFENSE" j 

£958 INPUT D9 

£968 IF D9>4 GOTO £966 

£96£ IF D9<1 GOTO £966 

£964 GOTO 1848 

£966 PRINT"YH PRI MADONNA! CALL A REAL DEFENES? nKAY"-'" 

£968 GOTO £948 

3818 REM 

3838 IF P>8 THEN 3£38 

3838 IF P>4 THEM 3858 

3848 ON P GOTO 3£38? 3888? 31£8j31£@ 

3858 OH P-4 G8T8 3888? 3 168*31 £.&- :-:£0fl 

3888 IF PlOl THEN 3£38 

3898 GOTO 3£18 

31 £8 IF Pl<>£ THEN 3£38 

3138 GGTO 3£18 
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3168 IF Pl<>5 THEM 3£38 

317© GOTO 3£18 

3£88 IF PK9 THEN 3£38 

3£18 U=I.£5 

3££3 GOTO 3£68 

3£38 U=l 

•:£68 IF B901 THEN 3£98 

3 £78 IF P>5 THEN 3418 

3£88 ON P GOTO 3438? 3418? 3398? 34185 :-:438 

3£98 IF D9<>£ THEN 33£8 

3388 IF P>5 THEN 3418 

3 3 1 8 ON P GOTO 34 1 8 ? 3438 ? 34 1 8 ? 3:-:98 ? 3438 

3:3£8 IF D9<>3 THEN 3368 

3338 IF P>5 THEN 3358 

3:348 ON P GOTO 3438? 3438? 3416? 34i8? 3438 

3358 IF P<>9 THEN 3418 

3368 IF P<13 THEN 3388 

3378 GOTO 3438 

3388 IF P<>8 THEN 3418 

3398 M=l.£5 

3488 GOTO 3488 

3418 M=l 

34£8 GOTO 3488 

3438 M=.8 

3 488 Y= I NT ( U G^RND ( - 1) ) - C L*RMD ( - 1 ) ) ) * ( U*M ) ) 

3498 IF R£<>8 THEN 5138 

3589 IF RNIK-1K.98 THEN 3530 

3 5 1 8 V-FNT C X ? Q ) + 1 

35£8 GOTO 4578 

3538 IF P>8 THEN 3798 

3588 IF RNln>il<.93 THEN 4830 

3598 Y= I NT ( . 5*T'NF ( 1 > *Y ) 

3688 PRINT E$(38)5" AFTER "S 

3618 IF Y<=8 THEN 3648 

36£8 PR I NT Y ? " " ? ES f 1 ) 5 " " ? Ef ( 37 ) 

3630 G0T8 3690 

364a IF YO0 THEN 3670 

3650 PRINT E$L36) 

3660 GOTO 3690 

3670 PR I NT RES ( Y ) ? " " 5 ES ( 1 ) 5 " " 5 E£ ( 35 ) 

3699 IF l-INTf£SRNDi.-i:i 3=0 THEN 37£0 

3700 PRINT E£(38)S" RECOUEREH" 
3718 GOTO 4838 

37£8 PRINT ESC 38) 5" LOST" 

3 73© X=X+ ( Q S Y ) 

3740 0=0* C- I) 

3750 GOTO 53£8 

3798 IF RNriC-lX.87 THEN 3938 

3SFi0 IF Y>8 THEN 3830 

3810 PRINT"QE TACKLED FOR "I 

38£0 GOTO 4578 
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3849 IF INT (RNDC- !)*£)=© THEM 3899 

3 8 6@ PR INT £$'■ ( 33 1 

3870 GOTO 3900 

•389© PRINT E?C3£) 

3909 Y=0 

3918 GOTO 4038 

3930 PRINT Est 34) 

3940 ; : v=X* ( Q S Y ) 

39 "50 R=INT f i5®FNF ( 1 ) ) 

3980 GOTO 4578 

4 830 IF A ES ( RND (-13 - . 5 ) > . 94 THEN 457 ? 8 

4040 P8=l 

4050 GOTO 4710 

4060 IF INTC£SRNIiC--l) j =0 THEN 4130 

4070 W=-l 

4380 IF INTi£SRNDC"i j)=8 THEN 4110 

409O P8=15 

4190 GOTO 4150 

4 1 1 !■!• r o— ■_• 

4180 GOTO 4170 

4 1 40 GOTO 4088 

4158 PRINT E£C31) ? 

4 1 68 GOTO 4 1 88 

4170 PRINT ESC38) ! 

4 1 88 PR I NT " " i E'S ( £9 J 5 " ON " ? 0$ C RES t W-£ ) ) 

4190 IF W<0 THEM 4350 

4 £00 IF Q<0 THEN 4300 

4£10 IF P8=i5 THEN 4£38 

4 ££8 IF Y<=8 THEN 4 388 

4 £30 GOSUE 4398 

4 £40 Y=P8*M 

4£50 PRINT E5(£9);" ACCEPTED: "<P8J" YARDS" 

4 £60 n=n-i 

4 £70 Y.=X+ ( Q s Y ) 

4 £80 E ( 1 4-W J =B f 1 4-H ) +P8 

4 £90 GOTO 5£88 

4380 IF S+Y >AES C 1 8-8 ) THEN 43£8 

4318 GOTO 4£38 

43£0 P8=8 

4338 GOTO 4578 

4348 IF W>0 THEN 4£10 

4350 PR I NT "DO YOU ACCEPT THE PENALTY i YES OP NO)"; 

4360 INPUT C£ 

4378 IF CS="NO ,! THEN 43£0 

4375 IF CS="M" THEN 43£0 

4388 GOTO 4£38 

4398 IF Q>0 THEN 4478 
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4409 IF W; i THEM 444)3 

4419 IF ? PSKFMUCXjQ) THEM 4528 

4 429 P8- 1 HT ( FNU ( X j Q ) •'"£ ) 

4439 r iTO 452W 

4440 ^ £WP8<FNT(X»Q1 THEM 4529 
4 450 P8= I NT ( FMT ( X ? Q ) .•-£ ) 

■4460 GOTO 4520 

4470 IF W>3 THEM 4580 

4480 W=i 

•4490 GOTO 4448 

4 500 u=-i 

4 C N8 GOTO 4410 

4528 RETURN 

4578 IF PM4 I'HEN 4688 

4588 ;- ; ;=> : !+(Q^YJ 

4590 LiUyUi' Z'id.kj 

4688 IF Q>0 THEM 4648 

4618 IF :*:<! THEM 4948 

4628 IF X>99 THEM 4858 

4638 GOTO 4688 

4648 IF X>99 THEN 4948 

4658 IF X<i THEN 4850 

4688 IF P>14 THEM 5358 

4698 IF R=8 THEM 47 10 

4788 GOTO 1330 

4718 IF V<=0 THEN 4748 

4720 PRINT V5 " YRRD GfllN" 

4738 GOTO 4788 

4748 IF Y<>8 THEN 4778 

4758 PRINT ES(36) 

•4768 GOTO 4788 

4778 PRINT flBS m 3 " YRRD LOSS" 

4788 IF P8<>8 THEN4868 

4790 GOTO 5288 

4 858 PR I NT Ef- ( 40 'J 3 " OS " 5 OS ( RES ( Q-2 ) ) 

4868 P9=2 

4878 Q=-1* : Q 

4888 S8=i 

4899 GOSUE 5660 

4988 Q=-1 K Q 

4918 GOTO 5388 

4940 PRINT E$ (39) 5 " " ? 0$ CRES (Q-2) ) 5 " ! ! !." 

4958 P9=6 

4960 GOSUE 5666 

4970 IF 0>8 THEN 5838 

4988 IF S£+l=31 THEM £598 

4998 IF S2+-2=S1 THEM 58 10 

5088 GOTO £598 

5810 P=4 

5020 GOTO 5180 

FiflSFI PPIMT"KICK FXTRR POINT (YES OR NO)"? 
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5u4o INKif C$ 

505Q IF CS="YES" THEM £590 

5055 IF CS="Y" THEN £590 

5060 PRINT "PLAY"; 

5070 INPUT P 

5080 IF P>14 THE'M 5060 

5090 IF P>1£ THEN 5££0 

5100 R£=l 

5i£0 GOTO 3O£0 

5130 R£=a 

5140 IF Y<4.1 THEM 5££0 

5160 PRINT E$t£4)s"S PRE GOOD!" 

5 1 73 GOSUB 5660 

5188 GOTO 5380 

5 1 90 P9= 1 

5 £98 GOSUB 5668 

5£10 GOTO 5388 

5££8 PRINT E5(£4)j" ATTEMPT FAILED" 

5 £30 GOTO 5388 

S=S+Y 

IF S>9 THEM 53£8 

IF IK4 THEM 5353 

Q=Qffi f - 1 j 

D=S=G 1 =0 

IF P>14 THEN 5353 

B ( 5+Q ) =B C 5+Q ) + 1 

IF P=18 THEM 1£60 

GOSUB 1 450 

GOTO 1 550 

PRINT 

5393 PRINT 0£fi)j ,! ; "JSl?" "jO$(3)5 
5430 PRINT 

541 O D=S=Z=P 1 =G 1 =P=P9=8 
54£8 IF S8<>8 THEN 5458 



IT' 
-J 


£88 


c:; 


£98 


■J 


388 


et 

-J 


310 






rr 


330 


nr.- 
J 


348 


,J 


358 


cr 


360 


CT 


378 




388 



c:- -i -■ 



430 0=0*: (™1) 

5440 GOTO 1£88 
5 4 50 ;>:;=58- f 3©*Q J 

5468 PRINT E$(£)5" FROM " 5 OSCABS CQ-£) ) 5 " £8 n JE$(6) 
5478 88=8 
5488 GOTO 1£38 
5498 T=T+1 

550O IF T=H9-5 THEM 5590 
5518 IF T=E9-5 THEN 5598 
55£8 IF T>H9 THEN 554© 
5538 GOTO 5650 
5540 IF T1>W THEN 5638 
5558 IF RNDC-i:K.35 THEN 5658 
£.8 
570 



719 



5599 PRINT 

5609 PRINT "TMO-N I MUTE WARN IMG" 

5619 PRINT 

5650 GOTO 5658 

56- : :0 IF T<E9 THEN 5658 

5640 IF END ( --!)>.. 58 THEM 5830 

5650 RETURN 

5660 B (£+Q ) =B C £+0. ) +P9 

5670 IF Q>0 THEN 5700 

5680 S£=S£-H =, 9 

5690 GOTO 5718 

5700 81=Si+P9 

5710 RETURN 

57£8 IF P>8 THEN 5750 

5730 B (8+Q) =B (8+0.) +Y 

5740 GOTO 5760 

5750 Bill +Q 3 =B ( 1 1 +Q 'i +-T 

5768 RETURN 

5818 PR I NT "HALF TIME" 

5 8 £8 GOTO 5858 

5838 PR I NT "END 8F GflME" 

5848 Z9=l 

5858 PR I NT "DO YOU WANT GflME STATISTICS (YES OR NO) "5 

5868 INPUT CS 

5878 IF Cs="NO" THEN 5958 

5875 IF CS="N" THEN 5958 

5888 PRINT 

5898 PRINT"STflT"»R$»B£ 

5988 PRINT 

5918 FOR 1=8 TO 4 

59£8 PRINT D$ C I + i ) ? B (3+1*3) ? B 1 1+3*1 ) 

5938 NEXT I 

594@ PRINT 

5958 Z=T1=1 

5968 T=H9 

5978 RETURN 

5998 REM 

6818 PRINT" ANOTHER GAME (YES OR NO)"? 

68£8 INPUT CS 

6838 IF C£="NO" THEN 6188 

6835 IF CS= n N" THEN 6188 

6848 Z9=D=T=S 1 =S£=P 1 =P=S=G 1 =T 1 =7=0 

6858 FOR 1=1 TO 15 

686© BCIJ=8 

6878 NEXT I 

6888 RESTORE 

6888 I 3=1 

6898 GOTO 358 

6188 END 
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fl-lp-; is Ppn-'TTYLF FOriTBALL. YfiLI HILL BE. THE'; 
GUFlRTEPBACF HMD HEFEMSIME SIGNAL -CflLLFP FOP YOUP 
TERM « YOU HFH.E 14 OF FENS I UE PLOYS \P, piiHRS f. PAssFsi 
Firm 4 HE FENS I UE RLIGNNEMTS, 

THERE TS TWO-MINUTE HORNING TCF'npF THE EMU 
OF ERCH HOLF. E3UF TO sFUEN PLAYS OPE LEFT JN THE 
HALF OT THAT POINT. 



HO YOU HONT LIST OF PLOYS (YES OR MC0 3YES 
COLL PLOYS OS FOLLOWS: 

RHUS: 

1=PIUE5 £=OFF TOCKl FT 3=SCISSnPRS 4=TR0P 

5=SWEEP« 6=OPTION5 7=REUEPSE5 8=DE0W 

POSSES: 

9=SIDFLINET ] 0=L.OOK-IMJ 1 l=POLLOI IT 
ie=SCREEN; 13=' FLY' 5 14=' POST' 

KICKS: 

15=FIELD GOOL? 16=PUNT5 17=QUICK KICK 

COLL DEFENSES OS FOLLOWS: 

1 = ' F'PO ' r 4-3 1 j ?-- ' OK I E: ' ( 5-;? l j 3= ' SHORT--YPG ' 5 4= •' PPFUENT ' 

YOUR TEAMYJETS 

0PP0NENT3RAMS 

JETS WON THE TOSS. 

DO YOU ELECT TO KICK OR PFCEIOEYKICK 

69 YORD KICKOFF 
TOUCHEflCK 

BOLL ON RONS 30 YORD LINE 
FIRST DOWN RONS YARDS TO GO: ly 

HEFENSE34 
SWEEP 

£ YARD LOSS 
HOLDING PENALTY ON JETS 
PENALTY ACCEPTED: 15 YARDS 
BALL ON RAMS 35 YARD LINE 
FIRST DOWN PANS YARDS TO GO: j@ 

DEFENSES? 

SIDELINE 

INCOMPLETE 

NO GAIN 

BALL ON RAMS 35 YARD LINE 

SECOND DOWN YARDS TO GO: ].© 

DEFENSE33 
DIUE 

1 YARD GAIN 
BALL. ON RAMS 36 YARD LINE 
THIRD DOWN YARDS TO GO: 9 
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FUNDS 1: 

DESCRIPTION 

Funds 1 performs financial projections for an investor. Funds 2 is used to 
plot the data from this program. The program is normalized to allow various 
investment plans to be compared. 



Individuals and companies engaged in financial speculation and investment 
would have use for this program. In addition, it could be related to any 
homeowner, as a home is an investment. With this program one could do e- 
quity projections on a home for the purpose of loans or additional invest- 
ment value. 



INSTRUCTIONS 

The program is self prompting and requires no maintenance prior to execution. 
The program normalizes all investments to $100 and makes projections for a 50 
year period. In order to correct for other investments the investment return 
need only be scaled by the ratio of $100 to the true $ investment. For example: 
if the investment was $14,100 then the investment return projections should be 
multiplied by 141, and so forth. The program can be listed for additional op- 
erating information. 



L I MITATIONS 

Funds 1 uses two dimensional arrays, starting in line 100. Line 910 contains 
a TAB ( ) statement and starting in line 950 Print Using statements are used. 
The source code requires 4K Bytes for storage. Execution is a function of the 
length of the projection as set in the DIM statement in line 100. With the 
present setting the program will require 37K Bytes of memory for execution. 
This amount can be significantly reduced if the A(32,100) table is reduced, 
however this will reduce the length of the projection. The program is pre- 
sently set for operation without a storage file for the tables. If the re- 
sults are not to be plotted with Funds 2, then there is no loss, however if 
Funds 2 is to be utilized, it would be advantageous to convert this program 
to use a storage file. Instructions for utilizing a storage file are given 
under Funds 2. This program has been written without file statements as most 
small system compilers do not have this statement and the object of this li- 
brary is to be as universally compatible as possible. 
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.H'IjJ 



c'fSREM 

40REM 



nNC — pi 



PFPFOPMAMOE dF FUNI 



TRUCTIONS TYPE RUN TO USE 



4 5 REM 

i 6 I'i IN Hi 32 ? 1 00 3 ? T f 60 ) ? "B i 3£ 3 



1 


" -i L'i 


1 

J. 


40 


i 


'50 


l 


60 


i 


■••'y 


1 


80 


l 


90 


C. 


00 


ill 


10 


c 


£0 


c 


3@ 


c. 


40 


c 


50 


£ 


60 


c 


i' y 




Rfi 


'" 


9@ 


3 


00 


"'-' 


10 


""' 


£0 


o 


39 


""■ 


40 


""' 


50 


3 


60 


■-! 


73 


""' 


80 


' ~ 


90 


4 


00 


4 


10 


4 


£0 


4 


30 


440 



450 



PRINT "WHAT ARE EXPECTED RATE OF RETURN RHP STANDARD DEVIATION" 

INPUT E?S 

PRINT "AT WHAT RATE DO YOU EXPECT NEW MONEY TO EE ADDED"? 

INPUT E£ 

PRINT "WHAT PATE OF SPENDING IS BUDGETED"? 

INPUT P£ 

REM USER SPECIFIES EXPECTED RATE OF RETURN R AND STD DEVIATION 

REM LMLOGfl+Rl) HFlS DISTRIBUTION HITH EXPECTED VALUE U£ AND 

REM VARIANCE S£? WHILE Rl HAS MEAN R AND VARIANCE SI. 

REM DEDUCE S£ F1MP U£ FROM R AND SI 

LET S£=LOG i. S 1 .•- ( 1 +R 3 t£+ 1 J 

LET U£=LOG ( 1 +R ) - ( 1 •-'£ 3 "*=LOG ( S 1 s ( 1 +R 3 1£+ 1 1 

REM NUMBER OF" PERIODS N 

LET N=50 

REM NUMBER OF SIMULATIONS Nl 

LET N 1=109 

REM SIZE OF FUND THREE PRECEDING YEARS 

READ Yl?Y£sY3 

DATA 180? 100? 108 

PRINT "AT WHAT INTERVALS DO YOU WISH TV'S"; 

INPUT II 

IF INT(IV:m=IVI.l THEN 380 

PRINT " 

MUST DF POSSIBLE TO DIVIDE INTERVALS EVENLY JNTO"JM 
GOTO 339 
IE 11)4 THEN 419 
PRINT " 

INTERVALS MUST BE GREATER THAN OR EQUAL TO 5" 
GOTO 330 
LET N£=N.-T1 
FOR I=i TO Nl 

REM LAST PERIOD FUND SIZE Y3 
LET T(03=Y3 
REM INITIALIZE E3?G1?H1 
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468 LET 'E3=8 

479 LET Gl=- 1 

430 LET H1=0 

499 REM DP W RATE OF RETURN AND COMPOUND FORWARD N YEARS 

508 FOR K=l TO N 

510 GOSUB 18£8 

5£8 LET T(K)=TCK-i)*(Rl+l) 

539 REM COMPUTE CONTRIBUTIONS AND WITHDRAWALS 

540 GOSUB 1100 

5 50 LET T f K ) =T ( K ) - E 1 +C 

560 REM PLACES SIZE AND WITHDRAWALS IN MATRIX. RfX ? Y) IS FOR INTERUAL X? 

570 REM SIMULATION Y. 

530 IF K<5 THEN 60© 

590 IF KV-IiO-IMTCK.-Tl) THEN 618 

608 GOSUB 1245 

618 NEXT K 

638 NEXT I 

638 REM PUT MATRIX IN ASCENDING ORDER. ACX'Y) IS YTH LARGEST FUND SIZE* 

648 REM IN SIMULATION X? IF X IS ODDj YTH LARGEST PAYOUT IN SIMULATION 

658 REM X? IF X IS EUEN 

668 FOR P=l TO CN£+4)W£ 

678 FOR 1=1 TO Nl-1 

688 FOR J=I+1 TO Ml 

6 98 IF A ( P ? I ) < =A ( P ? J J THEN 738 

788 LET Q1=A(P? I) 

718 LET ftf.Pt I)=fl(P» J) 

7£8 let ai:p?j;i=qi 

738 NEXT J 

748 NEXT I 

758 NEXT P 

763 PRINT "N"jHj "MI"? Ml? "II"? II 

778 FOR 1=1 TO CM£+4)*£ 

738 FOR J=l TO Nl 

790 PR I NT " Fl ( " ? 1 1 J ? " ) = " \ A C I $ J ) 

388 NEXT J 

818 NEXT I 

8£0 FOR 1 = 1 TO i:N£+4)*£: 

830 LET B(I)=0 

840 FOR J=I TON1 

850 LET E(I)=E(I)+FI(If JJ 

868 NEXT J 

870 LET Bm=BU)/TU 

880 NEXT I 

890 PRINT" 



900 PRINT "TOTAL RETURN FUND AT END OF:" 

9 1 8 PR I NT TAB ( 6 1)5" AUER AGE " 

9£8 PRINT "PERIOD"?" UPPER BOUND"?" MEAN" ? "LOWER BOUND'S "SPEND I NG" 

938 FOR 1=1 TO CN£+4)®£ STEP £ 
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940 IF I >8 IHE'N 969 

947 LET 19=19+1 

948 IF BCI 3 >999999» 99 THEN 954 

959 PRINT USING 1580? 19? fl f I ? Ni 3 ? B( I ) « fl ( I ? 1 ) ? B t. 1 + 1 ) 

958 GO TO 989 

954 PR I NT US I NG 1 £90 ? 1 9 ? R ( I ? N 1 3 ? B ( I 3 ? FN I ? 1 ) ? B ( I + 1 3 

'960 GOTO 988 

969 LET T8=T8+I1 

978 IF B C 1 1 >999999. 99 THEM 976 

972 PRINT USING j £88? T8? fl ( I ? HI ) ? B ( I 3 ? fl 1 1 ? 1 ) > B (1 + 13 

974 GO TO 930 

976 PRINT USING 1899? T3? fl f I, Nl J ? B( 1 3 ? fl f I ? 1 3 ? B i 1 + 1 ) 

980 NEXT I 

Ciyy ppjKjJ 

1888 PRINT 



18S8 LET R8-0 

1838 FOR B8=l TO 18 

1848 LET R8=R8+R'NIKX) 

1858 NEXT B3 

I860 REM U£ IS EXPECTED UflLUE OF U flNU U= 

1 878 LET R 1 =EXP i i.J£+SQR ( S£ 3 '# f R8-6 j 3 

1888 LET Ri=Rl-l 

1898 RETURN 

1100 IF KOI THEN 1148 

1118 LET C=E£*( CY1+YE+Y33 .^33 

1 I £8 LET E l = ( t V 1 + Y£+ Y3 ) --'3 } W2 

1 130 GO TO 1£48 

1140 IF K<>£ THEN 118© 

1 1 58 LET C=E£* ( C Y£+Y3+T C K~ 1 ) 3 .--3 ) 

1 1 68 LET E 1 = C ( Y£+ Y3+T C K- 1)3/3) *P£ 

1 170 GO TO 1£48 

1180 IF K<>3 THEN 1££8 

1 1 98 LET C=E£* f ( Y3+T ( K- 1 3 +T f K-£ 3 ) .'3 3 

1 £88 LET E 1 = C C Y3+T C K- 1 3 +T C K-£ 3 3 ^3 3 *P£ 

1£18 GO TO 1£48 

1 ££8 LET C=E£* C C T ( K- 1 3 +T C K-£ 3 +T t K-3 3 3 r 3 3 

1 £38 LET E 1 = t i: T C K-3 3 +T ( K-£ 3 +T f K- 1 3 3 ,'3 3 *P£ 

1£48 RETURN 

1£45 LET Gl=Gl+£ 

1£58 LET FlCGl? I3=TlK3 

1£55 LET Hl=Hl+£ 

1£68 LET flCHl? I3=E1 

1£78 RETURN 

1 £88 : ## ########. ## ######## . ## 

1 £98 : ## # . #####t TTtt # . ####ttttt tt 

1388 END 



OG ( 1+Kl 3 



########„## 
# . #####ttttt 



#.#####ttftt 
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WHAT ARE DEFECTED RATE OF RETURN FlMB STRNDFiPD EO0 
FIT' WHHT FFlTE DO YOU EXPECT MEW MONEY TO BE FlD'DED 
WHRT RFlTE OF SPENDING IS BUDGETED ?0 
FIT WHAT iriTEPURLS DO YOU HISH TU'S ?^ 



' I CM' 



f a I ....' 3 n .1 ■ 



TOTAL RETURN FUND RT END OF: 





UPPER 




LOWER 


OUEPRGE 


PERIOD 


BOUND 


MEAN 


BOUND 


3PENIHNG 


1 


141. 15 


115. 35 


80.41 


. 00 


C. 




134.16 


84. 03 


. 08 


3 


£35 . 50 




87.51 


. 08 


4 


£99 . 9£ 


176. 1£ 


97.47 


„ 88 




406 . 55 


£82 . 89 


180.82 


L-i L- : ! 


10 


1 0£4 . 97 


421.27 


115.78 


. 00 


15 


££98.53 


842.78 


CC'." 1 b O'-T 


. 00 


£0 


■~«y fey . fo I - ' 


1716.58 


£45.87 


. @0 


c!5 


16643.58 


3798.55 


499 . 39 


. 80 


303S 


33823 . £8 


I'' fc' l" - !'' . I -- 3 


736. 18 


. 00 


~'-!j 


O l'' COC . - : ' f* 


15754.43 


1117.45 


. @© 


40 


157535. 17 


30699. 46 


£294.71 


. 08 


45 


333111.65 


61627.30 


6805. 92 


. 06 


SO 


640792.34 


126456.81 


8864,77 


. 08 
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EXAMPLE 



RUN 



WHAT FIRE EXPECTED RATE OF RETURN AND STANDARD DEUIATION 
FIT WHAT RFlTE DO YOU EXPECT NEW MONEY TO BE: ADDED 9.01 
WHAT RFlTE OF SPEEDING IS BUDGETED ?.04 c i 
AT WHAT INTERNALS DO YOU WISH TU ? S ?10 



8 ,- 



TOTAL RETURN FUND AT END OF 





UPPER 




LOWER 


OUEEFlGE 


PERIOD 


BOUND 


ilEFli ! 


BOUND 


SPENDING 


1 


IIS. 18 


104.69 


84 « '"' r" 


4.50 


£ 


144.53 


1 1 . i?3 


o'-i „ ;•' {" 


,1 i'-:~? 


3 


149.63 


114.68 


83 . 8 1 


4. 72 


4 


163.51 


120. £5 


84 . 33 


4.94 


10 


i~ . O k'J a (' Z' 


1 hfi, 99 


74. 11 


6 . 5 1 


£8 


bb6 /u 


£54.66 


79.37 


10.51 


30 


1103.35 


434.64 


1 06 . 63 


1 i' - '. 88 


48 


1936.71 


66:3 . £0 


i 'T-J . !_...= 


c!i''. 7'D 


58 


3111.87 


1 063 . 1 4 


£ 1 8 . 53 


43 . 30 
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FUNDS 2: 

DES C R I P T ION 

This program is the plotting routine for Funds 1. It may also be used to 
plot other data bases, if they are formatted for this program's input. 



USERS 

Users of Funds 1 will have the most use for this program, however Funds 2 
can be used to plot the results of any financial analysis. 



I NSTR U CTIONS 

This program is also self prompting and will ask for all necessary inputs. 
For additional information list Funds 1 and Funds 2. 



LIMITATIONS 

As in Funds 1 this program uses two dimensional 
100. In line 1331 the TAB ( ) statement appears 
program. The source code stores in 5K Bytes of 
is a function of the reserved table size. With 
ly set, it will require 38K Bytes of memory for 
amount may be significantly 
length of the tables it may 
in a use file and then have 
file statement capability, 



reduced by reducing 
be more convenient 
Funds 2 read this u 
the mods would be: 



arrays, starting in line 
and is used throughout the 
memory. The execution length 
the DIM statements as present- 
storage and execution. This 
the "A" table. Due to the 
to store the data from Funds 1 
se file. If your compiler has 



FUNDS 1 



120 FILES: PLOT 1 

128 Scratch #1 

760 Write #1: N, Nl, 11 

790 Write #1: A(I,J) 



FUNDS 2 



120 FILES: PLOT 1 

125 Read #1: N, Nl, 11 

150 Read #1: A(I,J) 

155 Rem 
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£5REM 



iCK'IPTIOri — PI c 



iULRTTuN 



: ;! il T's fir 



INI"!'.-; i „ 



T RUCTIONS 



Klil ! 



ST FOR INSTRUCTION? 



'30 REM 
48 REM J 
45PEM 
58REM 
55REM 

10@ DIM EC35) jFKSSj 100} jU!"35) 

1£0 PRINT "INPUT Nj MIj II" 

1£5 INPUT 1 1? His II 

13© LET N£=N.-"Ii 

13£ FOR 1= 1 TO (N2+41HP 

140 FOR J=l TO Ml 

1 50 PR I NT' " I NPUT R ( " j I ? J ? " ) " 

155 INPUT nCI?JJ 

it.© nf>:t J 

17a NEXT I 

180 PRINT "WHICH FUND" 5 

190 INPUT K£ 

POO PRINT "AT WHICH PERIOD DO YOU WANT fi HISTOGRAM"! 

£10 INPUT E 

££0 IF BOO THEN I860 

£££ IF B<5 THEN £30 

££4 IF B.'"Il = INTi:B---Ii:i THEN £30 

££6 PRINT "MUST BE ONE OF THE PERIODS FOR WHICH DRTfl ARE PROUIDED RBOUE. " 

££8 GOTO £08 

£30 PRINT "DO YOU WISH TO RESPRCE"! 

£40 INPUT US 

£50 IF U$="NO" THEN £8© 

£60 PRINT "WHAT ENDPOINTS"; 

£70 INPUT U5jU4j'D5jD4 

£80 LET Z=I 

£90 PRINT " 



£9£ IF B>4 THEN 300 
£93 IF Z=£ THEN £96 
£94 LET C1=2*B-1 
£95 GOTO 370 
£96 LET C1=C=£^B 
£97 GOTO 360 
380 LET C=B,-n + 4 
310 IF Z=£ THEN 340 
3£0 LET Ci=£&C-l 
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340 LET C1-£ H C 

358 LET C=S ffi C 

36a JF Fi (CI j 100) =0 THEM 1500 

335 IF B=l THEN 1530 

370 IF U$="NO" THEM 400 

IF Z=£ THEM 410 

LET Ui=ou4-U5X18 

GO TO 400 

LET U1=i:D4-D5L-H.0 

LET U=H C CI? 1 00 ) ~Fi f C 1 ? 1 ) 

LET U=Ti,T0 

IF u>1.0000 iTO'l 490 

IF : IO5088 THEM 470 

CO TO 500 

LET D=D+„85 

GO TO 5U0 

LET D=Ii+l 

LET E8=U8=U7=€7= 10 E+7 

TF U:?-="NO" THEN 630 

IF Z=£ THEM 590 

IF Hi CI ? 1KU5 THEM 570 

LET E=U5 

LE".T E8=U5 

GO TO 650 

LET E=R(C1j 1) 

GO TO 650 

IF flfClj 1 J CD5 THEN 638 

LET E=D5 

LET E7=Ti5 

GO 10 680 

LET E=fi(Cl?l) 

GO TO 680 

I F U4< H ( C 1 ? 1 OO ) THEN 708 

LET U8=U4 
GO TO 788 

ip D4<FMCi ? 1003 THEN 788 
LET U7=U4 

LET F=H=@ 

LET F=F+1 

LET B(F)=0 

IF US="YES" THEN 760 

LET E=E+D 

IF U$="NO" THEN 1190 

IF FOi THEN 888 

IF Z=£ THEN 838 

IF EOU5 THEN 818 

LET E=E+U1 

GO TO 8£8 

1 1 — r r— 1 jcr 

GO TO 878 



;" 


8Q 


'" 


99 




00 


.•i 


10 


'"i 


O I'M 


4 


30 




40 


4 


50 


4 


60. 


A 




A 


80 


4 


98 


IT 


88 




18 


1= 


80 




38 


5 


48 


tr: 


50 


■Z 


60 


tz 


78 




88 




98 


t 


88 


fc 


18 


t 


c!U 


'c 


38 


€ 


48 


i~; 


58 


666 


€ 


7y 


€ 


88 


€ 


98 


1 


88 


1 


18 


r" 


£8 


r 


3@ 


(' 


48 


r" 


58 


(' 


68 


i' 


78 


i' 


88 


r" 


90 


•— 


08 


c 


18 


£ 


££1 
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839 IF EOD5 THEN 868 

848 LET E=E+Ui 

350 GO TO 870 

860 LET E=D5 

8i-'0 GO TO 890 

830 LET E=E+U1 

890 IF EOT THEN 1180 

900 IF 2=£ THEN 181.6 

910 IF E8=18 E+7 THEN 980 

988 LET G6=il 

930 IF M8=ie E+7 THEN 1180 

940 LET GG=18 

958 GO TO 1180 

968 IF U8=10 E+7' THEN 998 

970 LET G6=ll 

988 GO TO 1108 

998 LET G6=18 

1 808 GO TO 1 1 88 

1818 IF E7=18 E+7 THEM I860 

1888 LET G6=ll 

1830 IF U7=10 E+7 THEN 110© 

1848 LET G6=18 

1858 GO TO 1188 



107O LET G6=ll 

1 888 GO TO 1 1 80 

1090 LET G6=18 

1188 IF FOG6 THEN 1198 

1118 IF Z=8 THEN 1158 

1188 IF U8=18 E+7 THEN 1188 

1138 LET E=U4 

3 140 GO TO 1178 

1158 IF 07=10 E+7 THEN 1188 

1 1 66 LET E=D4 

1 1 >'"0 GO I 11 90 

1188 LET E=fl(Cl? 188) 

1198 FOR I=H+1 TO i@Q 

1 880 IF R ( C I j I ) >E+ . O I THEN 1 838 

1810 LET E(F)=E(F)+1 

1888 LET H=I 

1830 NEXT I 

1840 LET U(F)=E 

1858 IF U5="YE8 M THEN 1888 

I860 IF F O10 THEN 71 

1878 GO TO 1300 

1888 IF FOG6 THEN 710 

18y0 GO TO 1540 

1300 IF Z=8 THEM 1358 

1318 PRINT" FUND "5KS;" DI< 

1380 PRINT 

1338 LET G=INTtfl(Cl? 1) ) 



TR I BUT I ON OF FUND UfiLUES RT" j BJ "YEARS' 
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1331 P RINT GriRBUc') \ " : " 

134@ GO TO 1330 

1350 PRINT" FUND "SK.$3" DISTRIBUTION OF WITHDRAWALS AT" ? E» "YEARS" 

1360 PRINT 

1 370 LET G= I NT i A ( C 1 » 1 ) * 1 00 ) -•- 1 00 

1371 PRINT GJTflBfl£) 5 " : " 
1380 FOR 1= 1 TO 10 
1390 PRINT TABflE) 5"s"? 
14@9 FOR T=l TO BCD 
1410 PRINT TAB C 13) 5 "*"} 
1430 NEXT T 

1430 PRINT 

H40 IF Z=£ THEN 1470 

1450 LET G=G+D 

1451 PRINT INTiG)?TABil?)5":" 
1460 GO TO 1480 

1470 LET G=G+D 

1471 PR I NT I NT i! G* 1 03 ) / 1 ©9 \ TAB ( 1 £ } ? " : " 
1^88 NEXT I 

1430 IF Z=£ THEN 1530 
1500 LET Z=£ 
1510 GO TO £90 
15£0 PRINT " 

it 

1530 GO TO £O0 

1540 IF Z=£ THEN 1630 

1550 PRINT" FUND "SKS?" DISTRIBUTION OF FUND UALUES AT" JBJ "YEARS" 

1560 PRINT 

1570 IF ES=10 E+7 THEM 1688 

1580 LET G=INT(E8) 

1581 PRINT GJTABC1£) ? " : " 
1590 GO TO 1710 

1600 LET G=iriTfAi:Clj 1) 1 

1601 PRINT G?TAB(1£) ?":" 
1610 GO TO 1710 

16£3 IF INT'fACCl? 1)«100)^10S = THEN I860 

1 638REN 

1640 PRINT" FUND "5K$!" DISTRIBUTION OF WITHDRAWALS AT" ? E! "YEARS" 

1650 PRINT 

1 668 IF I NT i A f C 1 ? 1 ) * 1 08 3 .--' 1 00= THEN 1 850 

167© IF E7=18 E+7 THEN 1788 

1680 LET G=INTi:E7) 

1681 PRINT G?TAB(1£) S " : " 
1698 GO TO 1710 



1698 GO TO 1710 

170O LET G=INTfA(Cl? l)5«180)x-100 
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1791 PRINT G?TRBi;i8) i": " 

171C* FOR 1 = 1 TO G6 

17£0 PRINT TRBU2) 5 ": "5 

1730 FOR T=l TO BCD 

1740 PRINT TAB (13) 5 "*"l 

1750 NEXT T 

1760 PRINT 

1770 PRINT INHUm ) JTfiBliS)?":" 

1780 GO TO 1800 

1790 PRINT INTfU(Il*100+.05Tv'i00;T'flB(l£) i ": 

1800 NEXT I 

1810 IF Z=£ THEM 1848 

1880 LET Z=£ 

1838 GO TO £80 

1848 PRINT " 



1 358 

i86y 



GO iO £88 
END 
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This example plots the results of the first problem from the program FUNDS 1. 



JHICH FUHT! ?H£f: 
il" MHICil PFRIOD iX 



.,|f.;-.|]" Pj HJs'f i if,R'Hf' 



DO YOU HISH TO RF SPACE: 

Fillll! HBO UlST 



.DU ! 



i on of nun i 'jfil ut s f 



r:. ' ..'rriHi 
■~\ i •" r-tr ! : 



1 369 
1931 
£494 
3856 
3618 
4181 
4743 

5868 



.i L \ < ■'■ -, J ! ">:.. •.. ,1-n u, n ^ -,'-n. s.. 

V ;;|!; •& ■# 4|i- '■$• , : ra- iji •#■ •#■ $■ &■ : t|=- #' -di» •#• ^ •&• $• -t!i tii *>. T i:! : $• 

S;'*^;;^^* •& ■&. £ :# L & :& "!! ! :&#■ & # $ ^ &■•& " riji* -<*: :&•&:'# : # & :£ $ : *: # : #,#. 

' ' iji ; sV : iji -iii : «;. # $ -# :?:i : # ••:!: -ill $■ tjf- -t|i- 

V :&: :~ l : ;:;•• :#■ ■#: : p\ •&■ 



FlT NHICH PERIOD DO YOU HflNT hi H18T0GRHM ?0 
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'This example plots the results of the second problem from the program FUNDS 1 



WHICH RIMTJ ?BCB 

FIT WHICH PES? I OH pO YOU UFlMT HISTOGRAM ?i 

DO YOU WISH TO PESPFlCE ?HO 

FUHTi .'PCI! DISTRIBUTION OF FUMB URLUES FIT 1 YEOR 



yw 

94 
97 
1 @0 
104 
107 
1 1 8 
114 
117 



: ; Si Si Si 

:;*:»: 

:' Si Si #j Si Si Si Si Si Si Si Si Si Si 

:' Si Si Si Si Si Si Si Si Si Si Si Si Si Si 

:' Si Si Si Si Si Si Si Si Si Si Si Si Si Si Si 

■' Si Si Si Si Si Si Si Si Si Si Si Si Si Si Si Si Si Si S: Si 

:J Si Si Si Si Si Si Si Si Si Si Si Si Si Si 

.;' & $i Si Si Si Si Si Si Si 

■:' Si Si Si Si Si Si Si Si Si 
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GO-NOKU : 



This program is a simulation of an old Chinese game. It is played on a 9x9 
board and the object of the play is to place 5 in a row without being block- 
ed by your opponent. Your opponent is the computer. 



v* w t«m i y.w. 

If you like a game offering a fair degree of skill you will enjoy playing 
GO-MOKU. The game can be analyzed and the methodology may be reduced to an 
algorithm as in TIC-TAC-TOE for those so inclined. 



INSTRUCTIONS 

Upon execution the program prints out all necessary instructions and game 
rules. All inputs will be prompted by the game program. The playing board 
will be printed after each move. 



LIMI TATIONS 

This program uses two dimensional arrays; see line 90. The source code is 
5K Bytes long and the game will execute in UK Bytes of memory. 
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£0 PRINT' "YOUR 1 OFUECT IUE IS 

30 PRINT" IN H STPFlIGFIT LINE 

4@ PR I NT "ON AD ON f 

50 PR I NT "YOUR MOUE 

60 PRINT "THEN BQi-.IM 

70 PRINT"PUTER HI Li 

80 PRINT" IS Yon; »( 

90 DIN A 

100 LET 

110 FOP 

rn 



'DIP 
ENT 



J PLRCF 5 MARKS" 
EITHER HORIZONTAL? uerticpl? op 
9X9 BOARD? PLAYING AGAINST THE COMPUTER. 
FlS P NUMBERS? THE POSITIONS HCROSS HMD" 
FROM THE UPPER LEFT COPNF R OF THE BOfiPD. THE' 
THE'N TELL YOU ITS MCH IE FIND PRINT THE BOARD. 



G-" 

EP ,! 

COM- " 



T 



THE' 



OMPUTFR. GOOD LUCE 



.a ? c. <: : 

-9=£00 
1=1 TO 

:=i 



jfci J 



ISO FOR 
ISO LET 
3 40 NEXT E 
150 NEXT .J 
IbO LET S=0 
170 FOR J=10 TO 

189 FOR K=10 TO 

190 LET Ri'J?K)=0 
POO NEXT K 

£10 NEXT J 
££0 IE S=l THEN 
£30 LET S=l 
£40 GOTU £60 
£50 GOSUB £180 
£69 PRINT 
£70 PRINT 
£80 INPUT Ji,Ki 
£90 IF Ji+Ki =0 
308 LET .Jl=.Jl+9 
310 LET Kl=Ki+9 
3£0 IF FiUIjKIK 
330 LET ACJIjKI) 
340 LET D£=£ 
350 LET L3=0 
360 LET D4=0 
370 LET L£=81 
380 GOSUB 840 
390 LET D5=D4 
400 IF D4>79 
410 LET D£=i 
4£0 LET L£=65 
430 LET D4=0 
440 GOSUB 340 
450 LET D6=D4 



13 
IE; 



£400 



'HEN 170 



>l;1 



TEN £380 



HEN 1930 
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46G 


i IF D5>31 THEN 


i 480 


.-1 -?:"J 


IF D6<31 THEM 


770 


480 


IF L3>0 THEM 1 


950 


490 


IF D5<65 THEM 


5£0 


500 


LET Lhz'. = c'., 




510 


GOTO 550 




5£0 


LET D£=l 




530 


LET L£=55 




540 


IF D6<55 THEM 


588 


558 


GOSUB 840 




560 


IF L3=3 THEM £ 


:0 1 


570 


GOTO £030 




580 


IF I<5<55 THEM 


660 


590 


L.L I rfc!=ih! 




600 


GOSUB 840 




6 1 


LET L£=31 




6£0 


LET L9=55 




630 


GOSUB 840 




640 


GOSUB 1 680 




656 


GOTO £010 




660 


LET L£=31 




670 


GOSUB 840 




680 


IF L3<"£ THEM 7 


'00 


690 


GOSUB 1 680 




700 


LET L3=0 




710 


LET U£=£ 




7£0 


GOSU±: 840 




730 


IF L3=0 THEM 7 


'80 


740 


IF L3=l THEM 1 


99@ 


750 


GOSUB 1 680 




760 


GOTO £030 




770 


LET B£=£ 




780 


LET LE=D5-5 




790 


LET L3=0 




£100 


GOSUB 840 




810 


IF L3>© THEM £ 


1030 


880 


PRINT "DRAW? "1 




880 


l;u Tu t:y60 




840 


FOR J=l TO 9 




850 


GOSUB 1610 




860 


FOR K=l TO 10 




870 


GOSUB 11£0 




880 


NEXT K 




890 


MEKT J 




900 


FOR K=l TO 9 




910 


GOSUB 1610 




930 


FOR -J=l TO 13 




930 


GOSUB 1 1 £0 




940 


NEXT J 




950 


NEXT K 




960 


FOR L=4 TO -4 


STEP 
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9 8@ 
99a L 

1000 



GOSUE 1610 
FOR .J=i TO 

LET K=.J+L 



1 O£0 
1030 

1 W40 

1050 
1 060 
1 070 
1 080 
1 090 
1 1 00 
1110 

1180 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
18y0 
1810 
1888 
1830 
1840 
1850 
1 860 
1 870 
1 880 
1890 

1 300 

1310 
1380 
1330 
1340 
1 350 
1 360 
1370 
1380 
1 390 

1 400 

1410 
1480 
1430 
1440 
1 450 
1 460 
1470 



GOSUI 
NEXT 
NEXT 
FOR L 



1 1 80 



"0 14 



GOSUE 1610 



10 



FOR K=l TC 
LET J=L-K 
GOSUE 1180 
NEXT K 
NEXT L 
LET L9=8O0 
RETURN 

LET E=fi f. J+9 ? K+9 ) 
IF B=0 THEN 1460 
IF E=D8 THEN 1350 
IF U1=0 THEN 1180 
IF CI =66 THEM 1188 
LET 81=81-10 
LET S9=0 
LET U1=0 

IF Ci<=88 GO TO 1330 
LET C£=C1 

IF C5>=5 THEN 1858 
GOSUE 1618 
RETURN 
LET C:5=0 
IF C£<=D4 THEM 
LET H4=C8 
IF C£<L£ THEN 
IF C8>L9 THEN 
IF L1=0 THEN 1848 
LET P(L3)=QCL1-I) 
LET L3=L3+1 
LET L1=L1-1 
GOTO 1 380 
IF Ul=l THEN 
LET Ul=l 
IF 89=0 THEM 
GOSUE 1760 
LET S9=0 
LET 86=87+86+1 



1888 

1840 

1848 



1 480 



1400 



LET 87=0 

LET 85=85+1 

IF 86 >5 THEN 1840 

LET 81=81+80 

GOTO 1840 

IF Ul=l THEN 1490 

LET S9=10*U+K 
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1 430 


LiU 1 U X -3 i '0 


1 499 


GOSUB 1760 


"i '—iCit-^S 


LET "1=0 


1510 


LET 05=05+1 


1 520 


IF Cl<=9 THEM 


1 j ■:.•>■-' 


LET 07=07+1 


1 ■_.! '+tl 


IF CK=C£ THE! 


1 559 


LET 09=01 


1 560 


LET Cl=Cl-4 


1570 


GOTO 1940 


1 580 


IF Ci>=@ THEM 


1 590 


LET C1=0 


1 600 


GO TO 1940 


1610 


LET L1=0 


1 6?0 


LET C1=-T0 


1 630 


LET 09=0 


1640 


LET 05=© 


1650 


LET 06=0 


1 660 


LET 07=0 


1 679 


RETURN 


1 680 


POR H=0 TO L3 


1690 


FOR I =H+ 1 TO 


1 700 


IF P ( H l =P ( I ) 


1710 


NEXT I 


1790 


NEXT H 


1 730 


RETURN 


1740 


LET pi'01=pi:Hj 



1. 540 



•:i-J 



1 560 



L3-1 
THEN 1740 



1750 GOTO 1990 

1760 IF OK 65 THEN 1890 

1770 IF L1=0 THEN 1890 

1790 IF Ll=i THEN 1870 

1 790 LET Q C ti) =Q L 1 ) 

1300 LET L1=L1-1 

1810 GOTO 1780 

1890 IF 39=0 THEN 1850 

1830 LET 0i:L1)=S9 

1940 GOTO I860 

1 850 LET Q C LI ) =1 8*U+K 

I860 LET L1=L1+1 

1870 RETURN 

1880 LET J=IMT(P(0)/-i0)+9 

1 890 LET K=P t O ) - 1 s; C -J-9 ) +9 

1900 LET flfJjK)=l 

1910 PRINT J-95K-9 

1990 RETURN 

1930 PRINT "YOU WIN" 

1 940 GOTO £060 

1950 GOSUB 1880 

I960 GOSUB £180 

1970 PRINT "COMPUTER WINS!' 

1980 GOTO £060 
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1999 GOSUE 1880 

8800 GOTO £50 

8010 LET pi"01=P( I) 

£088 GOTO 1998 

8038 LET L9=INT(L3*RND(X}) 

£040 LET Pi;0)=p (L9) 

£050 GOTO 1990 

8880 PRINT 

£870 PRINT 

8880 PRINT 

8898 PRINT " '#■*■ MOULD YOU LIKE TO PLfiY AGAIN '&& 

8180 PRINT 

£119 INPUT R$ 

£188 PRINT 

£130 PRINT 

£148 PRINT 

£150 IF R$="Y" GG TO 178 

£168 IE R£="YES" GO TO 178 

£170 GO so £4"d8 

£188 PRINT 

£198 PRINT " 1 £ 3 4 5 6 7 8 9" 

££88 FOR J=18 TO 18 

£818 PRINT -J-9? 

£££0 FOR K=10 TO 18 

££38 FOR L=K TO 18 

££48 IF R(LjJ)<>0 THEN ££70 

££58 NEXT L 

££60 GOTO £318 

££78 IF A CK ,. J 3=0 THEN £368 

££88 IF fltKf J)=l THEN £348 

££98 PRINT "Y "5 

£388 NEXT K 

£318 PRINT 

£3£8 NEXT J 

£338 RETURN 

£348 PRINT "C "J 

£358 GOTO £388 

£368 PRINT ". "5 

£378 GOTO £380 

£380 PRINT "BAD PLAY? MAKE A HEN ONE" 

£398 GOTU £68 

£480 LET AQ4? 141=1 

£410 PRINT "CONP. PLAYS 1ST WITH 5 5" 

£4c8 LET S=0 

£430 GOTO £58 

£448 STOP 

£458 END 
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JACK: 



Calling all gamblers or would be gamblers — this is a simulation of the 
game of Black-Jack. The program adheres to the same house rules as used in 
the Las Vegas gambling casinos and is an exceptionally realistic version of 
the game. 



.MraJ!B™iffwo-\.as.. 

Persons who like to play cards, gamble, or just play games will enjoy JACK, 
and if you've always dreamed of sitting in a casino in Vegas playing cards, 
with this program only the setting will be different. The winnings obtained 
with this program are \/ery close to those obtained in the real casinos, ex- 
cept you can't spend your winnings but then like wise you don't have to make 
monthly payments to repay your losses. 



INSTRUCTIONS 

To play Jack simply type RUN after the program is loaded. The program will 
ask if you would like instructions. A response of "0" will start the game 
immediately, any other numeric response will cause a detailed listing of the 
instructions to be printed. The program is instructional and will prompt for 
all inputs. 



LIMITATIONS 

The source code requires 7K Bytes of memory for storage and 8K for execution. 
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1 M i-'.i C 1 8 J ? E* ( i 8 ) ? T i' 1 8 3 ? 8 ( 1 8 J 

TINT " HO V n N Hi:. FO " 

PR I NT' " I H8TRUCT I ONS ( 1 = YES ? 8=H0 ) " 5 

HERE ARE THE" LAS NRGRS RULES FOR PLRYING BLACKJACK!" 
34 PRINT 

36 PRINT" >WfiGERs THE HOUSE LIMIT IS >588? SO 'TYPE IN R NUMBER ,! 
3ft PRINT" FROM 8 TO 588. TO TERM I NATE GAME? ENTER ZERO. " 
48 PRINT 

4£ PRINT">THE DFflL: I DERI. MYSELF" £ CflRDS AMD SHOW YOU ONE. THEN I" 
44 PRINT" PERL YOU TWO CARDS? AND ASK IF YOU WANT R HIT (ANOTHER" 
46 PRINT" CFIRTH. YOU HAUE SEUEPAL OPTIONS DEPENDING ON THE CARDS" 
48 PRINT" YOU HOLD AMD MY UP CARD: " 
50 PRINT" * STAMP - BY TYPING A ZERO" 
52 PRINT" * TAKE fi HIT - BY TYPING fl ONE" 
54 print" * GO DOWN FOR DOUBLES - BY TYPING Fl TWO" 
56 PRINT" :* SPLIT Fl PAIR - BY TYPING A THREE" 
58 PRINT 

68 PRINT" > INSURANCE; IE MY UP CARD IS AN ACE? I WILL ASK IE YOU" 
68 PRINT" WANT INSURANCE. IE YOU DO TYPE A ONE? BETTING ONE-HALF" 
64 PRINT" OF YOUR WAGER THAT I DO HAUE BLACKJACK. IF I DO? I PAY" 
66 PRINT" S-TO-i ON YOUR INSURANOF BET. YOU LOSE YOUR ORIGINAL WAGER" 
68 PRINT" SINCE I HRUE BLACKJACK? SO WE ARE EUEN FOR THE HAND." 
78 PRINT" IE I DON'T HAUE BLACKJACK;. YOU LOSE YOUR INSURANCE BET" 
78 PRINT" AND THE GAME CONTINUES. " 
74 PRINT 

76 PRINT" IF YOU REFUSE INSURANCE (BY TYPING A ZERO) THE GAME" 
78 PRINT" CONTINUES AS NORMAL." 
88 PRINT 

88 PRINT" >THE PLRYs WHEN YOU FINALLY STAND (BY TYPING A ZERO)" 
84 PRINT" I WILL DRAW CARDS UNTIL: " 

86 PRINT" *I HAUE AT LEAST A HARD 17 (HARD MEANS THE TOTAL" 
88 PRINT" DOES HOT INCLUDE AN PiCE BEING COUNTED AS 11)" 
88 PRINT" aq HROE fl SOFT 13 (SOFT HERNS THE TOTAL INCLUDES AH" 
38 PRINT" ACE COUNTED AS 11)" 
34 PRINT" »q PERCH fl TOTAL OF £1" 
36 PRINT" »T EXCEED 81 AND BUST" 
38 PRINT 

188 PRINT" > ITEMS : " 

18£ PRINT" *1 PAY 1.5-T0-1 ON BLACKJACK" 
184 PRINT" *J DON'T RECOGNIZE 5-CRRDS-flNP-UNDER" 
186 PRINT" 3*yoU MAY DOUBLE DOWN ON A SPLIT HAND" 
108 PRINT" *YOU DON'T LOSE ON A TIE HAND... WE PUSH" 
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i 13 



TiOOiJ LUCK>> 



US 

114 
1 16 
118 
1£8 

i££ 

124 

1£3 
139 

134 
1 36 
138 

•i ,-i 1*3 l. !* 



PR I NT "THE 608 IS THE DEALER FIND GETS A BREAK AT 1945 HOUR; 

PR I NT "TIME IS IT NOW"? 

LET K=8 

LET HI =8 

INPUT N 

FOR I = ITU !!■-•£• 

LET X~T C 1 fe-i^RNP t IK ) ) 

NEXT I 

DIM 11(583 

FOR 8=1 TO 58 



■.IHflT" 



148 
144 
1 46 
148 

158 
1 54 

158 
168 
168 
1 64 
1 66 
168 
170 
1 ,-'£ 
1 74 
176 
178 
188 
188 
1 84 
1 86 
13y 
198 

1 94 
196 
198 
£88 
£8£ 



LET D(H 3 = 8 

NEXT A 

DIM Q(5£3 

FOR 8=8 TO 39 STEP L 

LET Q(Fi+C'i=C 
NEXT C 
NEXT A 
PR I NT 
LET K=K+1 
FOR P=i TO 5 



! =i.-;l 



1 =H 



Lt. i c '. r 
I jtt I. j I" p 

LET TiT- 
NEXT P 
LET U(8J=1 
PRINT 

PRINT "WAGER" S 
LET P=i 
INPUT H 
LET Wf£)=U 
IF W<=8 THEN 58£ 
IF H<=580 THEN 18£ 

PRINT "THAT'S TOO MUCH - HOUSE LIMIT IS £508. 
GOTO 166 
PRINT 

PRINT "I SHOW "? 

GOSUB 366 
IF E(13=8 THEN 19£ 
LET Ui 4 3=1 
LET U(5)=l 
GOSUB 366 
LET M=X 

[FT P=p 

PRINT "FIRST CARD IS"? 
GHSI IB *•£>£■ 
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£04 LET G=X 

£'@6 PRINT "NEXT CARD IS"? 

£68 GOSUE 366 

£10 IF U(£j >@ THEN £6£ 

'"'' 1 ,:: ' LET -;=':■:' 

£14 IF UC3)<>1 THEM £6£ 

£16 IF TCPi-OPt THEN £30 

£ 1 8 PR INT " ®'«® BLACK JACK**** " 

££0 PRINT "MY HOLE CARB WAS "» 

OOO f rT V— hi 

££4 GGSUB 434 
££6 LET Wi=Wi+i. 5®W 
££8 GOTO 538 
£38 IF U(4)=@ THEN £58 

£3£ PRINT "INSURANCE ANYONE (TYPE 1 OR O)"? 
£34 INPUT I 
£36 IF 1=0 THEN £50 
£38 IF T(1)<>£1 THEN £46 
£48 LET W1=W1+W 

£4£ PRINT "YOU WIN 5" 5 US" ON YOUR INSURANCE BET'S 
£44 GOTO £58 
£46 LET Wl=Wi-TL"£ 

£48PRINT"Y0U LOST $";W--£?" ON INSURANCE BET - I DONT HAUE BLKJAK" 
£58 IF TCilOSi THEN £6£ 
£5£ PRINT "WW I HAUE BLACKJACK^" 
£54 PRINT "MY HOLE CARE IS " ? 
£56 LET X=M 
£58 GOSUB 434 
£68 GOTO 534 
£6£ IF T(P)<=£1 THEN £73 
£64 IF ECP) >8 THEN £74 
£66 PRINT "YOU BUSTED? "5 
£68 PRINT "YOUR TOTAL IS !1 ?TfP) 
£78 IF UC£J=1 THEN 3£8 
UOTO 494 
LET Ei;p)=ECP)~l 

'6 LET T(P)=T(P)-1S 

'8 IF UC1)=£ THEN £68 

:y LET U(3)=U(3)+1 

:.o ppiht "HIT"? 

input urn 

£86 IF UL1303 THEN 358 

£88 IF UC£)>8 THEN 346 

£30 IF UC3)<>£ THEN 346 

£9E IF QCG)=Q(S) THEN £98 

£94 PRINT "NOW IS THAT A PAIR " 

£96 GOTO £8£ 

£98 LET U(£)=l 

308 IF Q(G)Oi THEN 304 

30? LET UCi:i=£ 

304 LET P=3 



l— I I— 

£74 

C. i 



COH- 



745 



Jfclfc 


f >:' | Ti r 


l-'LH 


3@8 


PRINT "FIRST 


- ilK.ii 


3 i Q 


LET Wf3}=M 




3 IS 


LET X=G 




314 


GOSUB 318 




3 1 6 


ohto P06 




™i -J o 


GOSUB 414 




Jc":; 


GOSUE? 434 




Z',i "™* O 


LET UC3j=l 




3 c' 4 


LET T i P j =C 




3,36 


RETURN 




3£t 


i LET P=£ 






i ET Ui: £)=.-' 





PIPY HAND ONE NOW' 



:4y 

' ,-1 o 
i'-r-r 



■: 60 
•:6£ 

•i 6 6 

:!68 

1:70 
'.• r" c 
:!74 



38 k! 



PRINT " FURS' HAND TWO MOW" 

PRINT "FIRST CFlPD IS"? 

LET X=S 

GOSUB 313 

IF Q(G)=1 THEM 344 

LET U i 1 "i =0 

GOTO £06 

PRINT "NO SPLITS MOW — TRY AGAIN" 

GOTO 38£ 

IF '.J (DOS THEN 360 

IF u(3j=p THEN 358 

PRINT "TOO LATE TO DOUBLE! CHARLIE, 

GOTO £8£ 

LET W(P)=£*WCP) 

IF UCD>© THEN £06 

GOTO £68 

REM DEAL 

GOSUB 380 

LET T ( P J =T ( P J +C 

IF U(5)=0 THEN 376 

LET U(5)=0 

RETURN 

GOyUfc? 434 

RETURN 

LE i N= 1 8 * ; ( 1 + ABS C COS ( N+W 1 ) ) ) 

FOR A=l TO M 



384 


LET X= I NT ( 5£ . 999 999 


386 


IF X=0 THEN 334 


O O o 


NEXT A 


393 


tf lu;X)=0 THEN 413 


3 9 '5 


LET R=R+i 


394 


IF R<50 THEN 380 


396 


FOR A=l TO '5£ 


398 


IF D(fl) =K THEM 40£ 


400 


LET D(A}=0 


402 


NEXT" A 


404 


LET R=0 


406 


PRINT "I RESHUFFLED 
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4@8 GOTO 386 

4i@ L ET P=9 

41.8 LET D(X)=K 

414 IF Q(XK>1 THEN 488 

416 LET C=ll 

413 LET E(P)=E(P)+1 

4 88 RETURN 

4R8IF OCX) >18 THEM 488 

484 LET 8=8 CX) 

483 RETURN 
488 LET C=1Q 
•438 RETURN 

4 38 REM PRINT CARD 

434 GOSUE 440 

48b GOSUE 478 

438 RETURM 

448 IF QiXlOl THEN 446 

448 PRINT " ACE "5 

444 RETURN 

4 46 IF QOO >18 THEN 458 

448 PRINT QO-) 3 

458 RETURN 

458 IF Q(X) >H THEN 458 

454 PRINT " JACK "5 

456 RETURN 

458 IF QiX) >1£ THEN 464 

460 PRINT " QUEEN "5 

468 RETURN 

4 64 PRINT " KING "? 

466 RETURN 

468 REM PRINT SUIT 

478 IF' X>39 THEN 488 

478 IF X>£6 THEN 484 

474 IF XM3 THEN 488 

476 PRINT "OF SPADES" 

478 RETURN 

488 PRINT "OF GLUES" 

488 RETURM 

484 PRINT "OF HEARTS" 
4:36 RETURN 

488 PRINT "OF DIRNONTiS" 

498 RETURN 

498 REM DEALER PLRVS 

■494 LET P=2 

496 PRINT "MY HOLE CRRD IS 

498 LET X=M 

588 GOSUE 434 

588 IF T (£}<££ THEN 588 
504 ip ijfp-,-0 THEr ..| 534 

586 IF T(3) >£1 THEN 534 
588 LET P=l 
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"l I Pi 



514 
5 1 6 



c:; ~~= y; 

trr - t _ i 

-_.J C. O 

539 

534 
536 

.„.! ,^i =— t 



544 



556 
"-■ ^3 y 
569 
56£ 
564 
566 
56S 
570 

£.. ™, .-_ 
CI' -? -i 

576 
58Pt 



ih I 11 J •=:. If i Mb. Pi 541: 
IF' T f 1 ) >17 THEN 51 f 

if t_ : i. J ./'!!! ! rid "I .J'-rO 

IF TCI) >£1 THEtl 55< 

LET P=£ 

PRINT "MY TOTAL IS 

IF T(P) >£i THEN 534 

IF TCI) >£1 THEN 538 

IF Til)>T(F'J THEN 534 

IF' t i" I J =T r p j THEM 536 

LET Wl=Wl+NfP) 

GOTO 536 

LET M1=W1-HCP1 

IF U(£) >0 THEN 54£ 

GOSUE 566 

GOTO 150 

LET P=3 

| p-j" If j O'j = fi 

GOTO 5££ 

PRINT "I DRFiH "j 

GOSUB 366 

GOTO 588 

IF Eil)= THEN 56£ 

LET EC 13 = EL 13 -1 

LET T(1)=T(1 )-10 

GOTO 588 

PRINT "I BUSTED***"? 

GOTO 518 

IF WK0 THEN 574 

IF 1=11=0 THEN 578 

PRINT" YOU' RE FiHEFlD $"5W1 

RETURN 

PRINT "YOU'RE BEHIND $";-Wl 

RETURN 

PRINT "YOU'RE EUEN" 

RETURN 

END 
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HF RE. APE THE LOS HF'GFlS RULES FOR PLAYING BLACKJACK 

>!'IFlGER: THE HOUSE LIMIT IS 5500? SO TYPE IN H NUMBER 
FROM S TO 5O0. TO TERM I NATE GAME? ENTER ZERO. 

■THE DEAL: I DEAL MYSELF £ CARDS AND SHOM YOU ONE. THEN 1 
DEAL YOU TWO CARDS? AND ASK IF YOU WANT A HIT (ANOTHER 
CARD). YOU HAUE SEUERAL OPTIONS DEPENDING ON THE CARDS 
YOU HOLD AND NY UP CARD: 

* STAND - BY TYPING A ZERO 

* TAKE A HIT - BY TYPING A ONE 

* GO DOUN FOR DOUBLES - BY TYPING A TNfi 

* SPLIT A PAIR - BY TYPING A THREE 

> INSURANCE: IF NY UP CARD IS AN HOE? I HILL ASK IF YOU 
WONT INSURANCE. IF YOU DO TYPE A ONE.- BETTING ONE-HALF 
OF YOUR WAGER THAT I DO HAUE BLACKJACK. IF I DO? I PAY 
8-TO-l ON YOUR INSURANCE BET. YOU LOSE YOUR ORIGINAL WAGER 
SINCE I HAUE BLACKJACK? SO WE ARE EUEN FOR THE HAND. 
IF I DON'T HAUE BLACKJACK? YOU LOSE YOUR INSURANCE BET 
AND THE GAME CONTINUES. 

IF YOU REFUSE INSURANCE fEY TYPING A ZERni THE GANE 
CONTINUES AS NORMAL. 

>THE PLAY: WHEN YOU FINALLY STAND (BY TYPING A ZERO) 
I WILL DRAW CARDS UNTIL: 

*I HAUE AT LEAST A HARD 17 (HARD MEAN* THE TOTAL 

DOES MOT INCLUDE AN ACE BEING COUNTED AS II) 
®I HAUE A SOFT 18 (SOFT MEANS THE TOTAL. INCLUDES AN 

ACE COUNTED AS 11) 
«I REACH A TOTAL OF SI 
® I EXCEED £1 AND BUST 

> ITEMS: 

si PAY 1.5-TO-l OH BLACKJACK 
m DON'T RECOGNIZE ^-CARDS-AND-UNDER 
"*YOU NAY DOUBLE DOWN ON A SPL.IT HAND 
*YOU DON'T LOSE ON A TIE HAND. ..WE PUSH 

<<<GOOD CLICK >>> 
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LIFE: 

DESCRIPTION 

This program is a very detailed version of the game of "Life" as written 
up in the October 1970 issue of Scientific American. It has been modified 
to allow one to play either against the computer or against another player. 
The object of the game is to destroy your opponents life units while saving 
at least some of your life units. This is more then just a game as it 
actually follows patterns found in real life environments. 



USERS 

Game enthusiasts of all types will find something of interest in this game. 
"Life" will be of special interest to individuals involved with population 
projections, economic growth situations, and the problems related to over 
and under developed areas. 



INSTRUCTIONS 

The program is self prompting and should be listed for a full set of instruc- 
tions before playing your initial game. Program instructions are available 
when the program is initiated. 



LIMITATIONS 

The source code for this simulation requires 13K Bytes of memory for storage 

and 21 K for execution, this does not include the amount of memory required 

for storage of your Basic compiler. This program uses two dimensional arrays; 

see line 106. Line 108 has a MAT A = ZER and 110 has a MAT B = ZER. Lines 

104 and 122 contain Restore statements. 
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I Tf"P" 



:--,.;. -I ^.j.j,j S:ft * | H p. FF ... nGRnF| IT _ f _ UF Ts BFi ,„. £ . D nN 1 . ! _ |E . |.. jH p 1E .. "ITFE." WHICH UiFIS iNMEMTED 
60 REM B¥ -JciHM HriRTLIH CrJNbJHM? R5 URITTE'N i IP IN '"tJENTIFir rii T IE"P TrpiNi 0|"T 1 C! 7H 

79 REM 

80 REM 

90 REM s*:*ss; !.;| OSSARY OF" UfipTPB! F NAME?; :«*:w«»: 

1@0 REM 

101 E=€9=8 

10£ REM *s^s SET MP BOARD AMD HOME REGIONS mssw 

104 RESTORE 

1 66 DIM R ( i 3 j 3£ j ? £ C 1 3 ? 3£ j 

108 MAT fl = ZEE 

I 1 3 Mf IT E = ZEE 

I I £ FOR J = 4 TO £ STEP - 1 
1 1 4 FOP I = £ TO 3 £ 

1 1 6 REED A ( I j .J j 

118 NEXT I 

1£9 NEXT -J 

!.££ RESTORE 

1£4 FOR J = £9 TO 31 

136 FOR I = IS TO £ STEP -1 

1£8 READ Ail ?. J) 

130 NEXT I 

13£ NEXT J 

1 34 DFiTAl ? 1 ? 0? 0? 05 i J 1 5 0? 1 J 1 5 0? 1 J O? 1 5 W? 1 ? 0? 1 ? 0? 1 ? 8? 1 J J 1 J 1 J 9 J 1 J i J 0? 0? 0? 1 ? i 

1 36 DATA 1 ? 1 6 j 1 ? £0 ? 1 j £4. ? £ ? i 6 ? 1 ? 1 9 ? 1 ? £ 1 « 1 ? £3 ? 1 ? 85 ? 3 ? 16? 3 ? £0 ? 3 ? £4 ? 4 ? 1 6 

1 38 DATA 5 ? 1 6 ? 5 ? £0 ? 5 ? £4 ? 6 ? 1 9 ? 6 ? £ 1 ? 6 ? £ 3 ? 6 ? £5 ? 7 ? £0 ? 7 ? £4 5 9 ? £0 * 9 ? £4 ? 16? 19 

140 DATA 10?£1? 10?£3? 10?£5? li?£0? ii?£4 

14£ REM THAT MAS THE FIRST MACHINE PATTERN 

144 UHTA 1 ? 17? Sj 17? 3 ? 17? 4? 17? 5? 17? 6? 17? 7? 17? 3? 17? 9? 17? 10? 17? 11? 17? 1 ? £0 

1 46 DATA 1 ? £1 ? £? £0? 4? £0? 4? £5? 5? £8? 5? £1 « 5? £4? 5? £5? 7? £0? 7? £1 ? 7? £4? 7? £5 

1 48 DATA 8 ? £8 ? 8 ? £5 ? 1 ? £8 5 1 1 ? £8 ? 1 1 j £ 1 

158 REM THAT WAS THE SECOND MACHINE: PATTERN 

15£ DATA 1? 16? 11? 16?5? 17?5? 18?6? 18?6? 19?7? 18? 1?£3? 1 ? £4? £?££? £?£5? 3? £1 

154 DATA ~.i ? d'3 ? 3 ? £5 ? 4 ? £ 1 ? 4 ? £4 ? 5 ? ££ ? 5 ? £3 < 7 ? ££ ? 7 ? £3 ? 8 ? £ 1 ? 8 ? £4 ? 9 ? £ 1 ? 9 * £8 

1 56 DATA 9 ? £5 ? 1 8 ? ££ ? 1 ? £5 ? 1 1 » £3 ? 1 1 ? £4 

158 REM THAT WAS THE THIRD MACHINE PATTERN 

168 REM 

178 REM 

188 REM 

198 REM 

£88 PRINT 

£18 PRINT 

££8 PRINT 

£38 PRINT 

£48 PRINT 

£58 PRINT 
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I f n E !■■ i S I O N R L. 1 'r' P R N T 






:e:nc;e; ! he: Jdm Uf Uonfl. i 



OU UETb-RRINE THfc" iJEi-TI N'i 



ii r :i k l. d n F" L ife"'Uhits" 



TEH rltlFLESSL 



..;•--.-. ppjj-JT 

~:b8 PF':' I HT" 

" : JCi PRINT 

4f!M PRINT 

41 8 PPIl-IT" 

J 68 PPIfiT 

4Ji PRINT" 



D HON UIFIN1 

THEN ] M"'n; 



i HE GRP1E 



> mLIFi; L.IFE-UHITS HlHLESSLM fcl.UriDER HBDUT 

| T [Tjr 3 ! H 

3 LRNRTIDN OF THE GrPIE !l 5 



L WE' 



ERSED QN THE! GRF1E L.IFE 



L. TFE'-UHITS FIRE COUNTERS ON RN iNFlNRTE GRID. ! HE PRESENCE PF" R L I FE~' 



440 PRIM"! 



4rn 

488 
490 

500 

5 1 

538 
540 
558 



5oW 
590 
608 
610 
666 
638 
648 
65fi 



>93 
'88 



rp.in ! 

PRIMT" 

PRINT 

PRINT" 

PRIMT" 

PRIMT" 

pPJ[vjT-n 

PRIMT" 
PRIMT 

PRINT" 
PRIMT" 

ppjNT" 

PRINT 

PRIMT" 

PRIMT 

OC'J NT" 

e r- ilii 

PRINT" 

PRINT 
PRINT" 

PRIMT 
PRIMT" 

P'p T KJT 

PRIMT" 

PRIMT" 

PRIMT 

PRINT" 

PRINT" 

PRINT" 

PRINT 

PRINT" 

pp T NT " 



Unit is indicated rs r zerd on the printed grfie edhrd. Un the oohrd 
erch Life-Unit is surrounded ev fi fsrxifiuft of eight neighbors. LHll I! 
rjrcent units rre counted? i nei uding dirgonhl neighbors-) " 

The grpie proceeds feor one generrtion to rnother. The Life- Units" 

thep1selmes do not pique? thev will either lime or die. the current 18 

popul.rtion of" rn rrer liiill deterrine the fdfulrtion of the the next' 

generrtion. existing l.ife-units firm oif." or new ones firm be born in 1 

ep1ft¥ sprees! recording to the following rules! " 



BERTH - 

LIRE. 
BIRTH 

EXAMPLES 



fl Life-Unit will die if it hrs less thrn two neighbors. . 

U-ROn ISOLRTIONJ ? OR FIORE THRN THREE NEIGHBORS. . . (PRPR " 
r/JVEEEROWDINGJ . " 



- p-p-— j JKj 



WILL L 



IF 



T HRS TWO OR THREE NEIGHBORS. 



: i neu Life-Unit will be: born in rn erptv spree there rre" 
>;hCTL V THREE neighboring Life-Units." 



"he hbone Life-Units will both die becruse ereh hrs onlh' 
1ne neighbor. " 



Too of the: rbome Life-Units utll die frdpi ouercrowding. Too new 
Life-Units will, be born. " 
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7' 6 


C 'PINT ! ' 


— "7 <~l 


PR T HT 


i"' 'c''kj 


PRINT" 


730 


r~*r-i t kit- il 

r r-. i. i "i i 


300 


PRINT" 


310 


PR I NT 


380 


PRINT" 


330 


PRINT" 


340 


PRINT" 


350 


PRINT 


3 6 


PRINT" 


370 


PRINT 


380 


PRINT" 


330 


p<PT !■■■!"]" 1! 


300 


PRINT" 


3 i 


PRINT 


330 


PRINT" 


330 


PRINT" 



ii-!E" Mir XT GENERATION I1F THE FIBCi'.-'E GROUP HILL be; 



940 ppt NT" 
958 PRINT" 
960 PRINT 
970 PRINT" 
938 PRINT 
990 PRINT" 
1000 PRINT" 
1810 PRINT" 
1038 PRINT" 
1038 PRINT 
1040 PRINT" 
1058 PRINT 
1068 PRINT 
1070 PRINT" 
1086 PRINT" 
1098 PRRNT 
1180 PRINT" 
1110 PRINT" 
1.111 PRINT" 
1180 PRINT" 
1130 PRINT" 
1 140 PRINT" 



1 i 



PRINT 



1160 PRINT 
1170 PRINT" 
1188 PRINT" 
1198 PRINT" 
1888 PRINT 
1810 PRINT 
1888 PRINT" 
1838 PRINT 



THIS PF1TTERN IS STHBLEs EACH L IFE-UN IT HRS TOD NEIGHBORS SD IT 1 

LINES RND NO SPACE HRS EXRCTLV THREE NEIGHBORS SO NO NEUl" 

LlFE~UNITS RRE BDRN. " 

Sore: patterns oscillate - this one: is crlled the: blinkers " 



Notice that the tup Units on the- end df the blinker die? rnd thrt" 

the one in the center limes becrlise it hrd tuio neighbors. Tun heu" 

Life-Units were born next to the center because them hrd three" 
neighbors. " 

Sore patterns are stable? Like these: : " 



3 8 



These fire called the Box? the Loaf? rnd the Snake. " 



SORE PATTERNS REPRODUCE THERSEL.NES RND ' I'lPUE ' RCROi 
"HIS ONE IS CRLLED A GLIDERS " 



-he: board. 



_. _ y _ j _ > ; y _ g ... 

8 8 8-: :-80 — 



W - 1 



Notice that the Glider 'Mdues' one square down rnd one square" 

TO THE RIGHT E'-.-'ERM FOUR GENERATIONS! It IS SAID TO ROUE AT ONE:-" 
D.UARTER OF THE SD.UARE-RDOT OF TUO TIAES THE SPEED OF LIGHT. " 



THE PLAY:" 



753 



(VJ4.I nFinr.5 ■' LIFE' 5 i? plrmed dm r ecifird 11 x 38. Erizh Plevef: hrs r 
1260 PRIMT" ur for Mnu ev the: computer fit the: strrt of erch grre. Erch Plhver" 

1 £78 PR I NT " TRIES Tu CC5TF:0¥ THE STFiBLE FRTTERHS IN HIS DPPDNENTS HOPE" RETS I ON." 

1£'88 PRINT" The: retrod of~ httrcr: is '.'Firirble:. Scire tirrs Gliders dr si mi err" 
IE'90 PRINT" frtte:f.ns rre used. Sdre:tires phtterns which rre knoujn to exphi-id hre" 

13UU PRIMT" etiplohed. In rnm crsf trie: gnlv ehhnce the rlrvers uill hrme td pern" 

1310 PRINT" THEIR StkRTEGH WILL BE FiT THE! OUTSET DR THE GRRE. I'T" IS THE INITIRL 1 ' 
1 3E0 PRINT" PLHN OF TRUER uOFcLD WHICH WILE. WIN OR LOSE THE ERT'TLE OF' LIFE!" 

1350 PRINT 
M00 PRINT 

1418 F'h'INi" DO HCIU WHMT R LISTING DF THE' FiiLES "I 

142.0 GOSUE 19008 

1430 IF Q = 8 THEN P80O 

1440 PRINT 

1450 PRINT 

1460 PRINT" Here rre the: RULES?" 

J. "T- i <"_■ I !■•. All! 

]. 43© PRINT" pRCI-l PLRMER: HRS R HPRE REGION WHICH HE TRIES TD DEPEND. FiT THE" 
j .490 PRINT" SRRE TIRE? HOWEVER? HIS RLRH RUST DESTROV HIS DPPDNENTS HORE REGION. " 

1508 PRINT" Thus erch F'lrher rust set up his imitirl plrn dp his world with" 

1518 PRIMT" R PHILOSOPHY OR DEFENSE? OFFENSE ? OR RTTERPT BOTH. " 

1528 PRINT 

1538 PRINT" Erch Rlrmer rrm use up to thirtv Lire-Units in his ihitirl" 

154© PRIHT" prttern. This is in rddition to the: Hope regions which I hrme" 

1550 PRINT" RLFEFiDH SET UP FOR ERCH PL FIVER. R F'LRHER FIRM PUT THE: L.IFeHJnITS" 
1560 PRINT" OR hi IS INITIRL PRTTERN ON HIS SIDE OF THE BORRD ONLH. FDR F'LFiVER" 

1578 PRINT" ONE this is frdr V = 4 to Y = 15? (The region frdr Y = 1 to Y = 3" 
1538 PRINT" is reserved for the hope: region. Da Not trv to rlrce rnh Lire-Units" 

1598 PRINT" in this hrer ! ) " 

1608 PRINT 

1610 PRINT" The Eofird initirllh looks like: this: " 

1628 PRINT 

1638 GOSUE 15888 

1648 PRINT 

1658 LET Z = 1 

1668 PRINI 

1678 PRINT" Rlrver One hrs the Bottor of the Edrrd rs it wfis printed out." 

168£i PRINT" Plrvee Two (who right be the: rhchineJ hrs the top of the borrd. " 

1698 PRINT 

1788 PRINT" If how wrnt to flrh ferinst the: edrputer? Thpe 'MACHINE' when I" 

1718 PRINT" rsk vdu for Plrher Two's Nrfie. " 

1738 PRINT 

£880 PRINT 

£818 PRINT 
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~i -~i .1 1-^ 

C. Li ■-**:.< 

£858 
£068 

£878 
£888 

£898 

£ 1 88 

£1 18 
£1£8 

£158 
£ 1 68 

£178 

£180 

£198 
££88 
££10 

•pppCi 



PRINT" Uhht 
INPUT fi$ 
GOSUB 14000 
PRINT 

PRINT" Whht 
INPUT B$ 
GOSUB 1 4000 
PRINT 



■LEVER 



JNE ? 



tIRRE 



Plrmer Tup's Name 



a ic 



= 1 THET 



PRINT 

PRINT" The 
PRINT 



1 C. i f fi 



Jdhrd initirllv looks like: THIS! 



PRINT 

PRINT 

PRINT" Attention "jflS? 

P = 1 

IF T=0 THEN ££18 

PRINT"? INPUT VQUR COORDINRTES RS BEFORE." 

GO TO £348 

PRINT'S PLERSE EIUE HE VDUR INITIRL PRTTERN OF LiFE~UN!TS»" 

PRINT" In order to pl.rce r Life-Unit rt point fi?B (crrtesirn coord i nrtes 3 " 

PRINT" TVPE THE '.,'RLUES IN SEPRRRTED EM R CORRR . In OTHER UJORDS TvPE THE 1 



££58 PRINT" 
££68 PRINT" 
££78 PRINT" 
££88 PRINT" 
££98 PRINT 
£388 PRINT" 



X cdordinrte? ft. Follow it with r corrr. Then tmpe the V coor-" 
OINRTE? Bj followed ev r chrrirge return. " 

WHEN ¥PU HRME FINISHED VQUR INITIRL PRTTERN? TMPE IN 8-0." 

Alsoj After tour 38th Life-Unit is positioned? I dill rssure" 

THRT VOL! RRE FINISHED? HMD I WILL ED ON..." 

I RR NOW REHDV FOR INPUT OF VDUR L.IFE~UNITS. ERCH TlRE I TVPE R 



P3lt1 PRINT" PLERSE TMPE IN ONE PRIR OF COORD I NRTES. " 

8082328 i" = i 

00@£330 REM 

0062349 '/. = 1 

00@£350 INPUT M?N 

8802360 IF P = 1 GOTO £480 

0002370 C = 16 

0002380 1) = 30 

8002398 GO TO £4£8 

0002400 C = 4 

0002410 D = 15 

8082420 IF M = O THEN 2580 

0002425 IF N < C THEN £450 

00W3430 IF N > B THEN £45© 

0002435 IF M > li THEN 2458 

0002440 IF M < THEN £450 

8002445 GO TO £470 

0O0£450 PRINT"!! YOU CAN'T PUT A LIFE-UNIT THFPF H" 

8882455 PRINT" YOU ARE LIMITED TO Y FROM "?C?" TO ' 



n; 



AND' 
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0O©£460 PRINT" 6 FROM 1 TO 11 ! " 
088E465 PRINT" TRY FlGfllN. " 

0002470 LET H i". N+ 1 ? M+ 13=1 

O002480 > ; ;=;K-f-l 

0002499 IF X <= 30 THEM £350 

000250U IF P = £ V lE'N £670 

0002510 PRINT" "?HS?' ! IS SET UP !" 

OO02530 IF ££ = "MACHINE" THEN £580 

OO02540 IF E$ = "FiRr.HiNE" THEN £580 

0802550 PRINT' 

OO02560 PRINT" FnTENTION " ?E$j 

O002570 GO TO £180 

@0 @£589 n'?~t 

O002585 P = RNlH-13 

0O02590 GOSUB 13000 

0002608 IF R < ='333 THEN 2640 

OO02610 GOSUB 13000 

0002620 IF R < ,666 THEN 2640 

0002638 GOSUB 1300O 

O002640 MAT fl = Fl + B 

O002645 PRINT 

00i3265'0 PRINT" The - Mrchine is rerds 4 ! " 

0002660 GO TO £6:30 

0002670 PRINT" E'.'ERMCsNEI is set up!" 

000268O PRINT" THE BATTLE BEGINS ! " 

0882685 PRINT ■ 

0002698 PRINT" HERE'S THE COMPLETE BOARD: " 

0002789 PRINT 

0002718 GOSUB 15800 

0002728 PRINT 

00012738 PRINT" Hnui eirnv Generrtidns dd mpli lihnt " 

0882740 PRINT" before printing the edrrd fierin "5 

88ti'2750i REM 

0882768 GO TO £788 

0082770 PRINT" Hay Mrnm Generrtiqns Now "§ 

0082738 INPUT E 

i38£i2785 E9 = E9 + E 

PiLTiff-'T'Cifi jp" p" = pi Tj_jrKj op-jpjjTj 

088E380 REM" GENERATION" CHANGE LOGIC 

008E818 FOR H = E! TO 1 STEP -I 
3T E = ZER 

FOR J = £ TO 31 
POP I = 2 TO 12 

l£ t s=fl C I - 1 ? .J 3 +fl C I - 1 ? J+ 1 1 +H ( I ? J+ 1 3 +-R. ( I + i j .J+ 1 ) 
LET S=S+fli'I + i ? -J3+RCI + 1 ? J-l 3+fif I j.J-1 3 +H L 1-1 ? J- 13 
IF S = £ THEN 2928 
IF S = 3 THEN £918 
LET B3 1 j 33 = -9J.lt J) 
GO TO £9£8 



8882 


o ■* ^ 


0002 


828 


0882 


838 


0002 


848 


0082 


85@ 


0002 


878 


0002 


888 


0082 


8901 


0882 


9801 
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yyys 

0002 

0002 
0002 

0002 
0002 
00 OS 
0002 
0002 
0003 
0003 
0003 
0003 
0003 
0003 
0003 



920 
939 
94@ 
958 
960 
970 
9S0 
99@ 
£1@8 
©18 

1020 
1039 
1040 

:858 

i860 



LET 3 i" J ? J) = I ~ -1 1'. I ? J) 

next i 

NEXT J 

MAT H = fl+T* 
NEXT H 
GOSUB 15008 
GO TO 2770 
REM 

Pfrfrj JKJKW E,'KIT OR AGAIN *"*="* 
PRINT 
PRINT 
PRINT 

PRINT" THANK YOU FOR PLRVING 'LIFT..' " ? fls 
IF M9 = 1 THEN 3860 
PRINT" YOU TOO "?E$ 
PRINT" 



0003878 PRINT" WOULD 'i 
0803888 GOSUB 19888 
8883898 if a = 1 then 
0003188 PRINT" 



Li LIKE TO STRRT ANOTHER GAME "« 
3150 



080c:ly4 PRINT 
0083128 PRINT 



0O3158 
8 1 3888 
813818 
813828 
813838 
813848 
813858 
813868 
813878 
8 1 3888 
8 1 3898 
8 1 3 1 88 

@ i 4000 

8 i 48 18 
814828 
814838 
9814848 
814858 
014@6@ 
1 4878 
8 1 4888 



GO TO 

REM 

REN 

REN 

MAT 

FOR 



1 00 

sffiffi ROUT I ME TO SET UP MACHINE' 



LIFE-UNITS *** 



E 



= 7ER 
I = 1 TO 
READ U?U 
BUJ+1 jU+13 

NEXT I 

RETURN 

REM 

RETURN 

REM 

REM ROUTINE TO 

REM 

REM 

REM 

REM 

REM 

REM 

REM 



= 1 



CHECK 'STRAIGHTNFSS' OF AN INPUT NAME 
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0014S90 RETURN 

00150O0 REM 

0015010 REM*** BORRH PRINTING ROUTINE * ;s: * 

0015029 REM 

0015030 PRINT 
0015040 PRINT 

0015070 FOR J = 31 TO 3 STEP -1 

0015080 IE J ME 31 THEM 15110 

0015090 PRINT" 30s "j 

30 IFi 100 GO TO 15300 

0015110 IE J HE! EG THEM 15140 

0015130 PRINT" 35: "" 

0015130 GO TO 15330 

0015140 IF J ME £1 THEM 15170 

0015150 PRINT" 30s "? 

0015160 GO TO 1530O 

0015170 IF -J ME It TIEN 15S00 



!.■!!.- 



i ~i 



ti i ■;< i yy Liu i u i b300 

O015S00 IF I ME 11 THEM 15330 

0015310 PRINT" 10: "5 

0O15R30 GO TO 15300 

0015330 IF J ME 6 THEM 15366 

0015340 PRINT" 5? "5 

0015350 GO TO 15300 

O015360 IF -J ME 3 THEN 15390 

O015370 PRINT" is "? 

0O15380 GO TO 153O0 

0015390 PRINT" s »i 

0O15300 FOR I = 3 TO 13 

0015310 IF Fid j J) = 1 THEM 15340 

0015338 PRINT"'- "? 

081533O GO TO 15350 

0015340 PR I NT "0 "? 

0015358 NEXT I 

0015368 PRINT" s " 

0015370 NEXT J 

0015390 PRINT" 1 3 5 7 9 11" 

3015400 PRINT 

0015410 PRINT 

0015438 RETURN 

19000 pEf'i sskjk YES or NO Fetch Routine sssksk 

19016 INPUT Q£ 

19030 IF Qs = "YES" THEM 19888 

19830 IF 0$ = "ves" THEN 19880 

19848 IF Qs = "MO" THEM 19188 

19058 IF Q£ = "nci" THEN 19188 

19868 PRINT" ! ! ! Pl.e-.rse? Answer YES dr NO ! ! !" 

19865 PRINT" Answer "5 

19878 GO TO 1901O 

19088 Q = 1 

19898 RETURN 

1 Q 1 QiC-* j7i rz \?l 

19118 RETURN 
19138 REM 
19138 STOP 
19148 END 
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BECO^F A TWO- DI 1E^ SI <J AL T/RA^JT 

E<PERIEMCE HE J)f OF OMFLtCT AS f )'J DETERilME TIE DESTI tff 
OF fOUR WORLD IF LIFE- 'HITS 

WATCH IELPLESSLY" AS f">UR LIFE- ! NITS AI vJLESSLf 3LUMDER ABOUT! 

PLA/ TIE 'BATTLE OF LIFE*! 

DO /OU WAMT A BASIC EXPLAMATI \H OF TIE GA4E ?Y 
!!! PLEASE, ANSWER fES OR -JO !!! 
ANSWER ?fES 

TIE GA*!E 'BATTLE OF LIFE' IS BASED OM TIE GA*JS j^ife. 

LIFE-rj\JlTS ARE CTUMTERS OM AM I-JFIMATE GRID. TIE PRESENCE OF A LIFE- 
UMIT IS IMDICATED AS A Z ERO OM TIE PRINTED GA-1E B1ARD. OM TIE BOARD 
EACH LI^E-UMIT IS SURROUMDED Bf A AbKlAm OF EI GIT 4 EI G IB )RS. C ALL 
AJACEMT UMITS ARE COUNTED. IMCL'JDMG DI ACOMAL \JSI GIBORS) 

TIE GA^E PROCEEDS FRO A OME GEMERATITM Tl AMOTIER 1 . TIE LIFE-fJMITS 
T-IE^fSELVES DO MOT A1VE, TIEf WILL EI TIER LIVE OR DIE. TIE CURREMT 
POPULATIOM OF AM AREA WILL DETSFHIME TIE POPULATIOM OF TIE TIE MEXT 
GEMERATIOM. EXISTIMG LIFE-U^IITS AM DIE. OR <JSW OMES AM BE BORM IM 
E"!PTf SPACES. ACCORDIMG TO TIE ^OLLOWIMG RULES* 

DEATI - A LIFE-UMIT WILL DIE IF IT ^AS LESS TIAM TWO MEIGIBORS... 
<FRO«! ISOLATIOM); OR *!0 RE TIAM TIRES MEI GIB! RS. • . C FRO^ 
OVERCROWDIMG). 

LIFE - A LIFE-UMIT WILL LIVE IF IT IAS TWO IB TIREE MEIGIBORS. 

BIRTI - A MEW LIFE-UMIT WILL BE BORM IM M E-!PTf SPACE THIERS ARE 
EXACTLY T-IREE MEIGTBORIMG LIFE-U-JITS. 

EXAMPLES: 



TIE ABOVE LIFE-UMITS WILL BOT1 DIE BECAUSE EACI IAS OMLf 
OME MEIGIBOR. 
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TWO IF HE ABOVE L I P -57 !- 'JvJ I TS WILL DI E FRO*! OVERCROWDING. TW1 -JEW 

LIFE- UN ITS WILL BE BORN. 

HE MTr< r GENERATION IF HE ABOVE ( : R)UP WILL BE; 





3 

HIS PATTERN IS STABLE. EACi LIFE-UNIT IAS TWO NEI G-tSO RS-- SO IT 

LIVES AND N") SPACE iAS EKACTL/ HRSE NEI CTBO RS-- SO 40 -JEW 

LIFE- UN ITS ARE BORN. 

SO*!E PATTERNS OSCILLATE - HIS ONE IS CALLED HE BLI'HSR! 





















NOTICE HAT HE TWO rjsTI TS ON HE END OF HE BLINKER DIE. AND HAT 
HE 0\JE IN HE CENTER LIVES BECAUSE IT IAD TWO NEIG1B0RS. TWO NEW 
LIFE-UNITS WERE BORN NE<T TO HE CENTER BECAUSE HE/ 4AD HREE 
NEIGHBORS. 

SO^E PATTERNS ARE STABLE. LI <E HESEs 























HESE ARE CALLED HE B0<» TIE LOAF. AND TIE SNA<E. 



S0*1E PATTERNS REPRODUCE HE4SELVES A'JD MOVE' ACROSS TIE 31ARD. 
HIS ONE IS CALLED A GLIDERS 



-------- 


-------- 


----.---- 


———————— 




; - - - . 


p — — — — 




e — — — "™ * • 


D *» .» M — * 
» » 


8 - - - 5 


-> 8 0- - S 


->: - - - s 


->8 - - - S 


->8 - - - S 


8 - S 


8 - 3 - 5 


8 - - S 


! - - 0S 


8 - - - 8 


-.«-. — 

• 


8- - - 8 


8 - - 8 


8 *■ - 8 


? - 8 


-»-»«,«,*,..«,» 


„«.««.*-»—-. 




«. = -. = «,--_ 





MOTICE HAT HE GLIDER MOVES' ONE SQUARE DOWN AND ONE SQUARE 
TO HE RIGiT EVER/ FOUR GENERATIONS! IT IS SAID TO *!0VE AT ONE- 
QUARTER OF HE SQUARE-ROOT OF TWO TIDIES HE SPEED OF LI G-IT. 



760 



THE PLAY! 

MY GAME. "LIFE'. IS PLAYED OM A B1ARD 11 < 30. EACi PLA/5R iAS A 
UP FOR YOU BY HE COMPUTER AT TiE START IF EACH GAME. EACi PLAfER 
TRIES TO DESTROY TiE STABLE PATTERNS INF -IIS OPPO^JEMTS iOME REGION. 

TiE 4ETHOD OF ATTACH IS VARIABLE. SOME TIMES GLIDERS OR SIMILAR 
PATTERNS ARE USED. SOMETIMES PATTERNS WilCi ARE <MOW\> TO EKPAxJD ARE 
EMPLOYED. IM Mf CASE TiE OMLf CiAMCE TIE PLA/ERS WILL iAVE TO PLA^J 
TiEIR STRATEGY WILL BE AT TiE OUTSET OF TiE GAME. IT IS TIE IMITIAL 
PLAM OF TilER WORLD WilCi WILL WI M OR LOSE TiE BATTLE 0* 1 LIFE! 



DO YOU WAMT A LISTING OF THE RULES ?YES 



HERE ARE TiE RULES: 

EACi PLAYER, HAS A HOME REGION WHICH HE TRIES TO DEFEND. AT THE 
SAME THEi HOWEVER. ilS PL AM MUST DESTROY il S OPPO\lEMTS HOME REGION. 
THUS EACi PLAYER MUST SET UP ilS IMITIAL PLA<J OF ilS WORLD WIT! 
A PHILOSOPiY OF DEFEMSE, OFFENSE. OR ATTEMPT BOTi. 

EACH PLAYER MAY USE UP TO Til RTY LIFE-UMITS IM ilS IiMITIAL 
PATTERM. TilS IS IM ADDITIOM TO TiE HOME REGIOMS WilCi I HAVE 
ALREADY SET UP FOR EACi PLAYER. A PLAYER MAY PUT THE LIFE-UMITS 
OF HIS IMITIAL PATTERM OM ilS SIDE OF TME BOARD 0\»LY. FOR PLAYER 
OME THIS IS FROM Y » 4 TO Y = 15. (TIE REGIOM FROM Y = I T) Y = 3 
IS RESERVED FOR THE HOME REGIOM. DO MOT TRY TO PLACE A^Y LIFE-UMITS 
IM THIS AREA!) 

THE BOARD INITIALLY LOOKS LIKE THIS? 
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305 ">•>---") 1 - 1 1 - '. 

! - ~ ) - ~> - 1 - 1 ! 
S-OO-O")---")")! 

• l 

25:-----------! 

• 4 

• — *>-»-»<*—•—.•- — ■*••••• 

a i 

20: -----------I 

* 

« — — — -.-..-.-. — -»-. — " 

a • 

1 ^> * -• — -»-»«.-.-»™ — -• — J 

t----------~! 

© i 

13s-----------: 

B 

« I 

• -) o - - - o ■■■) - >3 o - : 

! - ") - 1 - - - \ 
Is - - - - - ~)1: 

1 3 5 7 J 11 



PLAfER QvIS -IAS HE BOTHi OF HE BOARD AS IT WAS PRINTED O'JT. 

PLA/ER TWO CWiO ^1 G-IT BE HE *ACittfE> iAS HE HP TP HE BOARD. 

IF rOU WANJT TO PLA* AGAINST HE COMPUTER, TfPE MAC-H^E' WiEM I 
ASK fOU FOR PLAfER TWO'S WAME. 



WiAT IS PLAfER 0!\IE*S MAiE 
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LOANS ; 

DE S CR IPTI ON 

This program computes annuities for both payments and withdrawals for loans, 
mortgages, savings, etc. 



USE R? 

Householders, individuals who have checking or savings accounts or have 
outstanding loans or are contemplating any of the above will be able to put 
this program to good use. 



IN S TRUCT IO N S 

Upon execution the program will ask if you want instructions. LOANS is 
fully documented and will prompt for all necessary data while the program 
is running. 



LIMIT AT I O N S 

Line 100 contains a DEF FNX ( ) statement; this function is used through- 
out the program. In line 1200 LOG ( ) and 1260 ABS ( ) statements appear. 
The source code will require 6K Bytes of memory for storage. Execution will 
require an additional 1000 Bytes of memory for table storage for a total 
of 7K Bytes for execution. 
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3F\ priht "HRMT IMS! RUCTIONS FIRST Cl^YES? £=NO)"5 

49 INPUT L. 

59 IF LOi TNEN 7U 
fci0 G08UB 609 
70 LET S=@ 

50 F'K'INT 

98 PRINT "WHICH ANNUITY TYPE ( 1 =PRYh"ENTj ;?~W I THBRFiWFlL ) " < 

1 00 iDEF FMfl i; l.l i = :: . 1 * ; I NT ( 1 90*ii+ , 5 ) 

110 INPUT Fl 

i£0 GOTO 170 

130 IF R=l THEN 160 

140 LET Fi=l 

150 GOTO 178 

3.60 LET R=£ 

170 IF A=l THEN ££0 

ISO IF Fi~£ THEN 1050 

190 PRINT 

£0W PRINT " FlNSWER 1 OR £ PL ERSE." 

£10 GOTO 80 

££8 IF S=l THEN £60 

£38 PRINT 

£40 PRINT "WHICH URRIRBLE IS UNKNOWN C 1=N? £=H« 3=1 ? 4=R) " ? 

£58 INPUT I! 

£68 IF D=l THEN 338 

£89 IP" 13=3 THEiN 498 

£98 IF D=4 THEM 5£8 

388 PRINT 

310 PRINT " FiNSNER InE? 3? OR 4 PLEASE." 

3£0 GOTO £38 

338 PRINT 

34fi PPIMT "WHAT ORE fl C$3 ? I (PCT 3 ? R (£3 " 5 

358 INPUT Hi 5 IIjPI 

360 LET 11=11^100 

379 LET N 1 =LOG ( ( R 1 * 1 1 sR 13+1) ,^L OG ( 1 + 1 1 3 

388 PRINT 

398 PRINT "NUMBER OF PER I DBS - N ="?N1 

488 GOTO 9£8 

418 PRINT 

4E8 PRINT "WHAT RRE N ( INTEGER) ? I (PCT 3 5 R($) " 5 

438 INPUT Ml? 1 1 5 R I 

448 LET 1 1 = 11 ■•-'100 

458 LET fl 1 =R 1 * ( ( 1 + 1 1 3 IN 1 - 1 3 / 1 1 

468 PRINT 

470 PRINT "AMOUNT RT END OF N PERIODS = fl ="jfll 

488 GOTO 9£0 
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493 PRINT 

■506 PRINT "WHAT ARE" H( INTEGER) »fi(£) ?Rf$) "5 

519 GOTO i?iSO 

520 PRINT 

530 PRINT "WHAT ARE: N ( INTEGER) ?A ($) » I iPCT) " 5 

540 INPUT Ml? Hi 5 II 

550 LET 11 = 11^-100 

560 LET P i =fl J s 1 1 .-• ( r 14 I j ) IN 1 - 1 ) 

570 PRINT 

5O0 PRINT" "PfiVNENT EACH PERIOD = R ="5 PI 

590 GOTO 900 

600 PRINT 

610 PRINT "THIS PROGRAM PERFORMS CALCULATIONS FOR" 

6£0 PRINT "BOTH PAYMENT AMD WITHDRAWAL ANNUITIES." 

630 PRINT 

640 PRINT "UAFTABLES ARF DENOTED AS FOLLOWS: " 

650 PRINT 

660 PRINT " N = NUMBER OF PERIODS" 

670 PRINT " P = ORIGINAL PRINCIPAL AMOUNT" 

680 PRINT " A = TOTAL AMOUNT AT END OF N PERIODS" 

690 PRINT " 3 = lilTFRFST RATE PER PERIOD? IN PERCENT" 

,-'00 KhTNT " R =: AMOUNT OF PAYMENT/WITHDEAWAL EACH PERIOD" 

710 PRINT 

7P0 PRINT "FOR A PAYMENT ANNUITY? YOU NAY GIUE ANY" 

730 PRINT " THREE OF N?A?I?R AND FIND THE FOURTH." 

740 PRINT 

750 PRINT "FOR A WITHDRAWAL. ANNUITY? YOU GIUE ANY" 

760 PRINT " THREE OF N?P?I?R AND FIND THE FfiURTH. " 

770 PRINT 

780 PRINT "NOTE; FOR LORN OR MORTGAGE? USE THE" 

790 PRINT " WITHDRAWAL ANNUITY OPTION." 

880 PRINT 

818 PRINT "AFTER EACH CASE? YOU MAY CHOOSE ONE" 

880 PRINT "OF THE FOLLOWING ALTERNRTIUES: " 

838 PRINT 

840 PRINT " 1 = ANOTHER CASE? SAME UNKNOWN URRIABLE" 

858 PRINT " R = ANOTHER CASE? DIFFERENT UNKNOWN" 

868 PRINT " 3 = ANOTHER CASE? OTHFR TYPE OF ANNUITY" 

878 PRINT " 4 = TOTAL INTEREST PAID OUER N PERIODS" 

888 PRINT " 5 = TABLE OF WITHDRAWALS? PRINCIPAL? AND INTEREST' 

898 PRINT " 6 = STOP THE PROGRAM" 

90O PRINT 

918 RETURN 

988 PRINT 

938 PRINT "ANOTHER CASE (TYPE CODE NUMBER)"? 

940 INPUT S 

950 IF S=i THEN 170 

960 IF' S=£ THEN 170 

978 IF 3=6 THEN 9999 

988 IF S=3 THEN 138 

990 IF AOi THEN 1833 
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i a i ! ;i 

1 039 

1 040 

i r". : :«-X.*i 

1 060 

i ©By 

1 090 
1 100 
1 1 10 

1 1 so 

1 1 30 
1 1 40 

1100 

1 1 60 

1170 

1 1 ~}fi 

1 300 

1310 

1330 
1 £'30 
1 340 
1350 
1360 

1 3 80 
1 £9y 
1 3 £10 
1310 
1330 
1 330 
1 340 
1 350 
1360 
1370 
1 '330 
1 390 

1 400 

1410 
1 430 
1 A -30 
1 4"-^^ 
1450 
1460 
1479 
1 43© 

1 4y0 

1 jt10 



DpTNT 

PRINT "HLTEPNATNT NOT APPLICABLE TO PAYMENT ANNUITIES." 

GOTO 930 

IP S=~4 THE"!'! 1340 

IP y=5 THEN Ic^'-iS 

tf s=i them logo 

PRINT 

PRXHT "WHICH NflPIABLE IS UNKNOWN f 1=N? £=P? 3=1 ? 4=RJ " ? 

INPUT Ml 

IF fli=l THEN 1168 

IF A 1=3 T'HEN 1660 

IF' Fii=3 THEN 1740 

IF Al=4 THEN 3090 

PRINT 

PRINT " ANSWER 1?3?3? OR 4 PLEASE. " 

GOTO 1 08O 

PRINT 

PRINT "WHAT APE P f $■) j I iPCT) ? Rf$) " 5 

INPUT Pi » II jRl 

LET 1 1 = 1 i '190 

LET N 1 =LOG i P 1 ••"' £ R 1 -P 1 K 1 1 ) ) "'LOG f 1 + 1 1 1 

pp T f JT 

PRINT "NUMBER OF PERIODS = N ='SN1. 

GOTO 930 

LET Ni=Ni+. 0O001 

LET P8=INT(N11-'H1 

IF RES (PS) >, 00O01 THEN 1398 

LET N1=N1-1 

GOTO 1380 

LET Nl = INTi.Nl) 

LET P£=i 

IF S=4 THEN 1380 

IF S=5 THEN 1330 

LET P3=0 

PRINT 

PRINT "PERIOD'S "PRINCIPAL'S "INTEREST"? "PRINC EAL'S"INT TO HATE" 

PRINT 

Fir**Tr-lT' M r~ n u n n n r~: -i 
LET Y = 

let Y9=Pi 

LET Y=0 

FOR S=l TO Nl 

LET R3= iRl-Rl*T 1 J H r 1 + 1 1 1 t f S-l ) 

LET Fi3=ENFn:A3) 

LET C=R1~A3 

LET B=FNFNC) 

LET Y=Y+A3 

LET Y9=X9~A3 

LET Y=ENFKY+C) 

IE PS <>0 THEN 1510 

PRINi Sj A£?BjY9? Y 
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1516 NEXT S 

1539 LET 8=NH1 

1538 LET H3=P1~X 

1548 LET A£=FMA(A8) 

1550 LET LI =11*03 

1560 LET B=FNA(B1) 

157U LET X=X+A3 

1580 LET X9=8 

1590 LET Y=Y+Bi 

1600 IF P£=0 THEN 1640 

1613 PRINT 

1630 PRINT "TOTAL INTEREST PAID = "<Y 

163y GOTu 920 

1640 PRINT 8?A3?BjX9?Y 

1650 GOTO 9£3 

1660 PRINT 

1673 PRINT "UHFlT ARE N C INTEGER) > I (PCT) » R (£) " 5 

1630 INPUT ND Il.-Rl 

1690 LET 1 1 = 1 i. .-100 

1 700 let p i =p i s i: i: i + 1 n tn i - 1 ) ,'- 1: 1 1 sk 1 1 + 1 1 :i t h i ) 

1713 PRINT 

1730 PRINT "ORIGINAL PRINCIPAL AMOUNT IS" 5 Pi 

1739 GOTO 9£0 

1740 PRINT 

1 750 PR I NT " WHAT ARE N ( I NTEGER )»P( $ ] < R ( $ ) " ? 

1763 INPUT NDPDRi 

1770 PRINT 

1733 IF N1*RK=P1 THEN 3173 

1790 LET Il=. 1 

1300 LET 13=0 

1810 LET 13=1 

1830 IF FlOl THEN 1850 

183© LET P3=Rlffi(a + I13TNl-l),-Tl 

1840 GOTO I860 

1 859 LET P3=R 1 * ( ( H 1 1 ) Tf-i 1 - 1 1 /■ ( 1 1 * (HID t M 1 ) 

1860 LET P4=ABS(P1--P3) 
1873 IF P4>0.001 THEN 1930 

1880 PRINT "INTEREST PER PERIOD (PCT) = I ="5 100*11 

1893 GuTO 930 

1900 IF P4,--Pi>.3 THEN 30 10 

1910 I A=l THEN 1940 

1930 IF P3<P1 THEN 1933 

1939 GOTO 1950 

1940 IF P3>P1 THEN 1930 
1953 LET 13=11 

I960 LET 1 1=( I HI 3 ),••■£. 

1973 GOTO 1830 

1988 LET 13=11 

1993 LET Ii = (Il + I3).-3 

£009 GOTO 1830 

£010 IF fl=l THEN £040 
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£0£O 

£030 

£040 
£050 
£060 
£070 
£080 
£090 
£ i 00 
£119 

£ i 30 

£ 1 50 
£ 1 60 
£ 1 70 
£180 



HTEGER) j PC*} j I CPCT) " 5 



1 HE! I r'UbU 

IF P3>P1 THEN £060 

GOTO 1 950 

LET 13=11 

LET I1=Q1 + I£) --4 

GOTO 18£0 

PRINT 

PRINT "WHHT ARE HE 

INPUT His PI j 11 

LET 11 = 11.^100 

LET Pt-Pi*II*f 1 + 1 J VTHl.-'f (Hill TN1-1 ) 

pp J NT 

PRINT "HlTHBRflWHL EfiCH PERIOD = P ="5R1 
GOTO 9£0 

PR I NT "THE PR I NCI PHI LP J IS NOT RECOVERED? [13 MUST BE POSITIUE. " 

GO TO 1749 
ENB 
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SAMPLE FITORLFII #1 



TO BETFRMINE THE AMOUNT Of! HFlHD FlSSUMlHG DEPOSITS OF $35 .OR MONTH i 

INTEREST PAID IS 4-TVS";; YEAR? COMPOUNDED OUARTFELY. 

THE UARIABLES FlRF FTiNUFRTFD TO i"! QUfiRTF'PLY BASIS AND ENTERED OS SHONE 

N = : 3 * 4 = IS PERIODS 

- UlEIABLE OF INTEREST 

1 = 4„S75---:1 = I.PIFC^PEEIOD 
R = 35 ® 3 = 105 ''PERIOD 

SOLUTION 

»T'UN 



WANT INSTRUCTIONS FIRST U=YFSj 2=N0) ?S 
WHICH ONNUITY TYPE i i=PAYNEHTT E^iniHDRAWRL.) ?1 
WHICH UARIABLE IS UNKNOWN (1=Nj £=R» 3=1? 4=R) ?P 
WHFlT ARE N 1 I HTE'GER ) ? I ( PCT ) j I? ( $ ) ? 1 6 , 1 . S 1 S75 ? 1 05 . Ofi 
RMOUNT FIT EMU OF N i : 'FRIOHS = 9. ~ 184P.A5P 



SAMPLE PROBLEM #F 



TO DETERNINE THE MONTHLY PRIHCIPRL FiNI) INTEREST PRYMENTS OH Ft 

$£@?9O0 mortgage:. 

PERIOD OF TIME IS SO YEARS. 

INTEREST RATE IS 5-T- '£"-;; PER YEAR. 

THE UARIFlBL.ES ARE CONUEETED TO A MONTHLY BASIS HMD ENTERED RS 

SHOWN. 



N = SO * 12 = SCO PERIODS 

P = P09OO 

I = 5.5.-12 = .45S333333.-T : 'ERI0D 

R = ETlRIABLE fiF INTEREST 
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;-!f Kl"! Ml: !-' i H':4: I 1 Vri: Li t ! 1 1 : ! I! 
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( ; i!ii. ! ■!! 1 1 ■ | T -: F h ! I ■'" 



1 ..-! i.i 



; oil 



14 
16 



J. J'~< 



i ;.. ;. ; .'l. =..; i 



34 . 6 i 



PP i Hi !■:: 



' ■ i a i I 



"-lyyi'- 






hho?1 . u 1 

.:--S:- : i.u| ■-.!!■-, , ~,j 






1 047 . 0?' 
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MAZES : 

DESCRIPTION 

This program generates uniquely different mazes in two dimensions. The 
maximum size of a maze is 23 x 25. Each maze is distinctly different from 
the preceding one and has only ONE solution. 



U SE R S 

Puzzle and riddle fans will enjoy this game. The complexity of the mazes 
generated is varied according to the dimensions but all should provide 
fair competition for the initiated as well as the uninitiated player. 



INSTRU CTIO N S 

Type RUN and the program will print out a full list of instructions and then 
ask you for the size of the maze you would like to construct. The greater 
the dimensions of the maze the more complex is its' solution. 



LIMITATIONS 

Mazes uses two dimensional arrays to generate the patterns. The source code 
requires 6K Bytes for storage. With the DIM statement in line 240 set at 
(23, 25) the program will require 18K Bytes of memory for execution. If this 
DIM statement is reduced the program will execute in less memory space but 
the mazes generated will be correspondingly less complex. 
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f : - ; ;i!, : 'h !=] m;- ! ,i I-' !!■'!!;';' ! i'pv'! '■■ ; . M r.T'M.ii i's : -i MhZE Hi- HUY inMENSIONS 

1 -HiPPM ' ; |! ' ; EEP NT SUES MP TO 33 BY HJ., EACH 

S-eiK-rM Mil 31 I. '5 GUARANTEED TCi HM"E Or |f HMD ONLY 

1 hOPEM ' u * SOLUTION, 

i .^pe;|.i -:---: -««^* .*:**;« 

j HOPEM Tiisl'F'Mr nuri::;— TYPE 5 PUH 5 AND FO! LOW INSTRUCT I Of IS 

3 OOF' EM 

330PEM 

~.2,fi ppVr!T"''TNTft 'pprir.PflrV'wiLL PRINT OUT hi DIFFERENT MRZE EUERY TTNE IT" 
'-., fi ci pptmt 'Hs'hiN hi -ITi GUARANTEES ONLY ONE PATH THROUGH. YOU CRN CHOOSE' 
-".7fi PRINT "THE DIMENSIONS OF THE MRZE. LEY THE NUMBER OF SQUARES WIDE'" 
pc ;F , pot ht "PiMTi TH r - NUMBER OF SQUARES LONG. fi £3 BY £3 MAZE IS THE " 
pyy print "MAXIMUM? HUT AMY DIMENSIONS UP TO THESE LIMITS APE OK." 
";PFs PPT NT 

3]9 PRINT "WHAT ARE YOUR WIDTH AMD LENGTH"? 
330 INPUT HjH 
j3Q PRINT 

H4Q IF FE M THEM YHJ 
-!nM IF !'•:." ■ 1 THFM : "-:p! 

330 PP1NT "MEANING! ESS DIMENSIONS? TRY AGAIN. " 
":.;70 PRINT 
3 HO GO TO Hi 3 
330 PRINT 

4 30 PRINT 

A 1 LET 0. - 

4 JOREM 

440REM 

4=,,;^ pph-j STEP'S 1900 THRU 3£H0 PICK THE 

4^3 r'q.i SQUARE IN WHICH TO START. 

470REM 

480REM 

490 LET Y = : I NT (F'MD fX'i *4~i+i } 

500 FOR I = 1 TO FI 

see print ": — "? 

5 30 GOTO 55Q 
54 g PRINT "= " ? 
500 NEYT I 
5 SO PRINT "s " 
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iiyy Ln. 



■•U.X-. 1 



599 LET C = C-i- 


j 




6biy Lb.T R -■■■ ';■', 






6 1 U LET S = 1 






6 £8 GOTO 908 






638REM 






640EEM 






650 RE 1=1 






660 REM 






67*3 REM 






680 REM 






698 REM 






790 REM 






710REM 






788REM 






738 IE R <"=■ H ' 


rHEri 


:"-: i £ 


740 IE S <> U " 


n-iEN 


780 


7 '50 LET E = 1 






768 LET S = i 






778 GOTO 896 
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788 LET R 

790 LET S 

890 GOTO £ 

810 LET R = E+1 

880REM 

838REM 

840 REM 

858 REM 

868 REM 

878REM 

888REM 

898 IE NCR? 8) =0 THEM 738 

900 IE E--1 = O THEM 1338 

918 IE W(R-IjS) <> 8 THEN 1338 

938 IF 8-1 = 8 THEM 1188 

938 IE M(E?S-TJ <> 8 THEM 1188 

9 40 IF R = H THEM 990 

958 IF WCR+i?S3 <> 8 THETi 998 

968 LET X = IMTiRNl!i;;>0^3+11 

978 REM 

930 OM X GOTO 1858? 1988s 1998 

998 IF 3 <> U THEN 1838 

1808 IF Z = j THEM 1078 

1018 LET Q = 1 

1038 GOTO 1848 

1838 IF MCEjS+1) <> 8 THEM 1878 

1 848 LET X = I NT C RNI) ( X ) ®3+ 1 ) 

1058 REM 

1868 ON X GOTO 1859? 1988 ? £898 

1878 LET X = IMTrRNH(y)S£-M3 

1888 REM 



38U8RF 
-■AT"! ! NHEN THF 
T'HF.' LIMES ORE 
;!Hlf:H HAS FlLR 
TDJACENT TO f 



388 THRU 5708 LOOK FOR THE 
IF! HHTHH TO START fl NEH 



OLD ONE GETS BLOCKED. 

SCANNED FOR R SQUFlRE 
EATY BEEN USED BUT IS 
H OREN SQUARE. 



FEES 6588 THRU 13888 CHECK TO SEE 
-IICH Fil'iJACENT SQUARES ARE OPEN FOR 
-IE PATH TO FOLLOW. 



I rrr „ i 



El"? UP? RIGHT 



LEFT? UP? DOWN 



LEFT? UP 
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I 1 






i -I'-' M 



! ?si : ; : o thfti 

J THEN i i~ : 9 

[ IrlFM S :-'Hfl 



1 i jy IF y 

J 1 53 GOTO j i 78 

J IbO IF' N OF' ? 3+ 1 ! • F '•-■ 1 HFN J 206 

i i fo let x = irn ih'Mfny iffij+i } 

j 130EEM 

1 J 90 Of! X GOTO i 000? 3 990? O090 

1 :'O0 let >: = ; on yyiiiO-y^y-t-i j 

j y40 IF 7 = i tofo 1 0-0 

1 F'00 GOTO 1930 

1070 IF FOR? 8+1 3 <> THEN 1320 

1 000 L E'T = T LIT ( PHD f X 3 *=£+ 1 3 

i09O REM 

1.300 ON X GO 1 03005 0093 

1010 REM 

j 300 GO i U 1 000 

1330 IF 3-1 = THEN 1589 

1340 IF FOR? 8- 13 <> THEN 1589 

1350 IF R=H THEN 1488 

1060 IF i-OR+iOB) <> THEN 1408 

1070 IF SO U THEN 1410 

1338 IF Z = 1 THEN 1408 

1898 LET Q = i 

1488 GO i 1408 

1418 IF WCR?S+l3 <> THEN 1458 

1400 LET X = INT (RMIOX3 s; 3+13 

14-jgi P£M 

1 44ili ON X GOTO 1980; 19905 8099 

1458 LET X = If-n'yRriIOXJ H E+i3 

1460 REM 

1 4 7y ON X GO i i..i 1 900 ? 1 998 

1488 IF 8 <'> U THFN 1508 

1490 IF Z = 1 THEN 1578 

1508 LET Q = 1 

1519 GOTO 1538 

1558 IF WCR? 8+ 13 O THEN 1579 
1539 LET X = INTORNIOX3 : * ; S+1 ) 
1549 REM 

1559 OH X GOTO 1908?y098 

1569 REM 

1570 GOTO 19S0 



H THEN 1708 



LFT5i>O...HT?TlOWN 



OTjriOWf- 



j RIGHT j DOWN 



UP? RIGHT 



IP? L30HN 
I IP 



1 59s: 



H(R+1?S3 < 



"HEN 1708 
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16M@ IF S •<> U THEN 1648 

1619 IF Z = 1 THEM 1690 

16£8 LET Q = 1 

1630 GOTO 1650 

1640 IF WiPsS+l) <> THEM 1699 

1650 LET :==: = INT fK-ND(X )*£+!) 

1660 REM S'IGHTjUOWN 

1670 OH X GOTO 1998; £'898 

1680 REM RIGHT 

1690 GOTO 1990 

1700 IF S <> U THEM 1740 

1710 IF Z = 1 THEH 1780 

1780 LET Q = 1 

1730 GOTO 1760 

1740 IF WfRjS+1) <> THEM 1788 

1758 REM DOWN 

1 ,-'60 GOTO 8090 

1770 REM BLOCKED 

1780 G0!0 8890 

1 798REM 

1 380REM 

1810 REM 3TEPS 13996 THRU 18199 MAKE fl RANDOM 

1880 REM CHOICE OF RURILfiBLE PATHS. 

1 830REM 

i 849REM 

1856 LET W(R-IjP) = C 

I860 LET C = C+l 

1870 LET U(R-IjS) = 8 

1880 LET R = R-i 

1898 IF C = H*U+i THEM 8310 

1986 LET Q = O 

1918 GOTO 988 

1988 LET NCR? 8-1) = C 

1938 LET C = C+l 

1948 LET U(RsS-l) = 1 

1958 LET 8 = 8-1 

1968 IF C = H&U+1 THEM 8318 

1978 LET Q = 8 

1 988 GOTO 988 

1998 LET WCR+i.S) = C 

8888 LET C = C+l 

8018 IF U(R»S) =0 THEM 8848 

8080 LET U(R»S) = 3 

8838 GOTO £858 

8848 LET U(R»S) = 8 

8850 LET R = R+l 

8060 IF C = H«U+i THEM £310 

£070 LET Q = 

£088 GOTO 1338 

£898 IF Q = 1 THEM £198 

£188 LET W (RjS+1) = C 
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£ 1 C< '■] IF H f k' , 5 j 

£139 LET [ h'Rj: : , 
£140 GOTO £166 



£198 LET 7 = i 

:.pfii7f TF UiRsS) 

££18 LET OCR? 8 

£££0 LET Q = @ 






i tuf 



£E40 LET i.ifRj.?.) = I. 
£E50 LET G! = 

££38 GOTO 899 
£898 GOTO 730 

:.::< -;,~|Ci pP"jvj 

8310 FOP J = 1 Tm U 

£380 PRINT !! I " ? 

£338 FOR I = 1 TO H 

£840 IF Us; I, J) < £ THEN £370 

■■- 1 --i erri onTMT !! I!; 
C. ■■;> -_.»b i is .1 I ! I > 

£.360 GOTO £388 

c! ;> f ;•;.' rkjii! j. :■ 

£380 NEXT I 

£390 PRINT 

£400 

£440 

£458 

c'460 NEXT I 

£470 PRINT ,! » " 

£480 NEXT J 

£490 EN Li 



"OR I = 1 TO H 
tf lOTjjj = THEN £450 
IF 0(1? J) = £ THEN 8450 
ppTr-ji - "; » ; 

GOTO £460 
PRINT "i— "I 



i! r 



NH7E FROM HERE ON. 



^Sis 
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POKER: 

DESCRIPTION 

If you like card games and would like to play for high stakes or low but just 
haven't got the extra money, this is the way to go! This program simulates 
a five card draw poker game. Up to five players are allowed and the computer 
is the dealer and keeps everybody honest. 



USERS 

Anyone who enjoys a good poker game will enjoy this program. If you've always 
wanted to try your hand at poker this is one sure way of doing it safely 
and for the old pro its' going to be a little bit harder to bluff, but go 
ahead and try. 



IN S TR UC T IO NS 

To use this program simply type the word RUN. The game will then commence. 
The game is self instructing and will ask for all necessary inputs. For 
additional information list Poker. 



L I MI TATI O N S 

With the exception of the ABS ( ) statement in line 2230 the program should 
immediately execute in any basic speaking computer with at least 8K of 
available memory. The source code for Poker will require 7K Bytes of memory 
for storage. 
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0858 PRINT "TUTS IS THE POKER GRME OF FINE CARP DRAW FOR 1 TO 5 PLOVERS" 

PifiAfl PRINT 

0070 PRINT " THE' DERI ER IS A GI fit IP GETS COFFEE BREAK EUERY HnLF" ? 

FiOSO PRINT "HOUR. WHAT TIME IS IT NOW"? 

0090 INPUT N 

!"! 1 an PFM 

0H0 REM THE FOLLOWING LOOPS ORE USED TO GET RRMDOM NUMBERS GOING FOR THE DERL. 

01SO REM 

013O FOR I~- 1 TO M---2 

g| 1 40 >:|=:T f i 0»:pMp i X 3 3 

0150 NEXT I 

0160 DIM DibSJ 

0170 FOR 8=1 TO 58 

1 80 D ( R J = O 

1 SO NEXT R 

0S00 DIM QC52) 

0810 FOR H=0 TO 39 STEP 13 

0820 FOR C - 1 TO 13 

0830 OlA+C) = C 

O340 I SEXT C 

0858 NEXT fl 

0860 K = K+-1 

0878 FOR P=l TO 5 

0280 E"CP3 = O 

8890 UiP3 = O 

0380 TlRj =0 

0310 NEXT P 

8388 y(3) = 1 

8338 PRINT 

0348 REM 

0358 REM STRRT OF' THE GRME. 

0368 REM 

0373 PRINT "ENTER THE NUMBER OF HANDS YOU WANT DEALT"; 

0388 INPUT H 

0398 IF H =0 GOTO 3138 

0400 Q =0 

8418 REM 

0420 REM THE FOLLOWING IS USED TO GET THE PLAYERS NAMES. 

0438 REM 

0440 PR I NT "HOW ENTER THE FIRST NAME OF ,! j 

8450 IF G=l GOTO 540 

0468 IF G=2 GOTO 590 

047O IF G=3 GOTO 648 

8480 IF G=4 GGT8 698 

0490 PRINT "PLAYER 1"? 

8588 INPUT Fi£ 
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5 i 


G = GM 


05£0 


IF G=H GOT® 750 


053® 


IF GO! GOTO 440 


054® 


PR I NT "PLAYER £" 


0550 


INPUT El: 


0560 


G = G+l 


0570 


IF G=H GOT® 750 


0580 


IF G<H GOTO 440 


0590 


PR I NT "PLAYER 3" 


06001 


INPUT C-$ 


0610 


G = G+i 


06 £8 


IF G=H GOT® 750 


0630 


IF G<H GOTO 440 


0640 


PR I NT "PLAYER 4" 


O650 


INPUT lit- 


0660 


G = G+i 


0670 


IF G=H GOTO 750 


06 88 


IF G<H GOTO 440 


06301 


PR I NT "PLAYER 5" 


07010 


INPUT ES 


0710 


PRINT 


0730 


REM 


0730 


REM USED TO MflKI 


0740 


REM 


0758 


PR I NT "ANTE UP! I 


07601 


PRINT "FROM $1.! 



"HE GAME INTERESTING. 

PUT SOMETHING IM THE POT, YOU MAY BET ANY AMOUNT'S 
00 TO $188.00 BO NOT USE THE $ SIGN' 



|| B 



077m P = 1 

073£i W = y 

0790 INPUT W 

0808 PRINT 

0818 WC£3 = W 

0838 IF W<=8 THEN 313® 

0838 REM 

0848 REM HEALING EUERYOME THEIR HANH ONE. AT A TIME. 

0858 REM 

0868 IF H=l GOTO 980 

8878 PRINT "NOW IF" EUERYONE BUT "AS" WILL STEP BACK I WILL DEAL HIS HAND." 

0888 PRINT fi$j 

0890I GOSUB £868 

0988 PRINT A$ 

0918 FOR Cl=l TO 5 

09£8 GOSUB £168 

89301 NEXT CI 

0948 GOSUB £778 

0958 IF H=l GOTO 1370 

0960 PR I NT "STEP BACK AND HAUE "B£" STEP UP. " 

0978 PRINT 

0980 PRINT B$? 

0990 GOSUB £860 

1088 PRINT B$ 

1818 FOR C£=l TO 5 
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19 £8 GUSUB £1 69 

1039 NEXT C£ 

1840 GOSUE £778 

5 1'iFift TF M=R GOTO 1370 

1068 PRINT" -STEP BOCK AND HOME "C$" STEP UP." 

1070 PRINT 

108O PRINT C$5 

1390 GOSUE £360 

1 i titi rkinl !--•?• 

1118 FOR C3=l TO 5_ 

11 £8 GOSUE £160 

1133 NEXT C3 

1140 GOSUE £77© 

1 1 58 IF H=3 GO I 1 378 

1160 PR I NT "STEP BOCK AND HRUE "B£" STEP UP." 

1178 PRINT 

1 ISO PRINT US* 

1 1 90 GOSUE £860 

i£88 PRINT 

IS 16 PRINT BS 

1££0 FOR 04=1 TO '5 

1£30 GOSUE £160 

1£48 NEXT_C4 

1£50 GOSUh: £770 

l?fM IF H=4 GOTO 1378 

1S70 PR I NT "STEP BOCK ONE HRUE "£■$" STEP UP." 

1380 PRINT 

1£98 PRINT Es? 

1380 GOSUE £860 

1310 PRINT 

1326 PRINT LS 

1338 FOP C5=l TO 5 

1340 GOSUE £160 

1358 NEXT C5 

1368 GOSUE £778 

1373 PRINT"NOH LOOK AT YOUR CRRES ONE BET 'EN LIKE YOU SEE EN"? 

1388 Ml = 8 

1398 INPUT Ml 

1488 PRINT 

1418 PR I NT "BIB ANYONE DROP OUT? ENTER THE NUMBER OF PLAYERS STILL IN"? 

14£8 INPUT HI 

1438 PRINT 

1440 PRINT" IF YOU DON'T WANT ANY OR HRUE". EROPED OUT ENTER fi ZERO." 

1458 PRINT 

1468 PRINT R$5 

1478 INPUT Pi 

1488 IF PI =8 GOTO 1548 

1498 IF Pl=>6 GOTO 3868 

1588 FOR C6=l TO PI 

1518 GOSUB £168 

15£0 NEXT C6 
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1539 GOSUB £776 

1540 IF H=l GOTO ,?.9£8 

1559 PRINT "STEP BACK fiMD HRUE "B£" STEP UP." 

1560 PRINT 

1570 print am 

15S0 GOSUB £860 

1590 PRINT 

1600 PRINT "HOW MANY CARDS DO YOU WANT "B$5 

1610 P£ = 

16S0 INPUT F£ 

630 IF P£=0 GOTO 1690 

640 IF P£=>6 GOTO 3060 
165W FOR 07=1 TO P£ 
1660 GOSUB £160 
1670 NEXT C7 
16«8 GOSUB £770 
1690 IF H=£ GOTO £9£0 

1700 PRINT "STEP BACK AND HRUE "C$" STEP UP." 
1710 PRINT 

17£0 PRINT CSJF1736 GOSUB £860 
1740 PRINT 

1750 PRINT" HOW MANY CARDS DO YOU WANT "C$5 
176© P3 = W 
1770 INPUT P3 
1780 IF P3=0 GOTO 1840 
1790 IF P3=>6 GOTO 3060 
ISO© FOR C8=l TO P3 
1810 GOSUB £160 
18£0 NEXT C8 
1838 GOSUB £770 
1840 IF H=3 GOTO £9£0 

1858 PR I NT "STEP BACK AND HRUE !, D£" STEP UP." 
I860 PRINT 
1878 PRINT D£j 
1888 GOSUB £868 
1898 PRINT 

1900 PRINT "HOW MANY CARDS DO YOU WANT "D$; 
1910 P4 = 
19£0 INPUT P4 
1938 IF P4=8 GOTO 1998 
194@ IF P4=>6 GOTO 3060 
1950 FOR C9=l TO P4 
1968 GOSUB £160 
1970 NEXT C9 
1988 GOSUB £778 
1990 IF H=4 GOTO £9£0 

£888 PRINT "STEP BACK AND HAUE "ES" STEP UP. " 
£818 PRINT 
£8£8 PRINT ES5 
£838 GOSUB £868 
£040 PRINT 
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c!fcl6W 
£ 9 70 
£08@ 
£098 

£ 1 0© 

£110 
£ 1 £0 
£ 1 30 
£140 
£ 1 50 
£160 
£170 
£ 1 80 
£ 1 90 
£298 

£££0 
££30 
££40 
££50 
££60 
££70 
££8© 
££98 
£388 
£318 

£338 
£340 
£358 
£369 
£370 
d>!yy 
£390 
£4 £10 
£410 

£430 
£448 
£450 
£460 
£470 
£488 
£498 
£500 
£518 
£5£8 



I NPU i P5 

IF P5 = 8 GOTO £148 
jp P5 => f~, GOTO 3868 
FOR Fl = 1 TO P5 

GOSUB £ 1 68 
MEaT Fl 
GGSUB £778 
IF H=5 GOTO £9£8 
REM THIS IS USED TO PERL THE CfiRDS. 

bUOUB CC Z'ZJ 

T f p) = T (P3 +C 

IF U(5j =0 GOTO ££18 

0(53 = 8 

Kfc. i Lirui 

GGSUB £478 

RETURN 

[•-•I = i gw f i +HBS C COS ( N+M 1)33 

FOR fl=l TO N 

;•=: = I NT ( 5£ - 9999999^RND ( V 3 3 

ip ; K ; = @ GOTO ££30 
MEKT fl 

IP jiiK}=0 THEN £350 
R = R+l 

IF R<58 THEM ££30 
FOR fl=l TO 5£ 

IP m; ft) =k GOTO 3340 

NEXT fl 

JiiX'i - K 

IF QfXiOi THEN £410 

C = 11 

F(P) = ECP3+1 

RETURN 

IF Ql>T)>10 THEN £448 

= q r v i 

RETURN 

C = 18 

RETURN 

REN THIS PART IS USED TO PRINT THE CARDS 

GOSUB £500 

GGSUB £650 

RETURN 

IF QCX3 01 GOiO £538 

PRINT " AGE "? 

RETURN 



'538 IF QCft3>18 GOTO 
:548 PRINT QCX) 5 
'556 RETURN 



jfoO 



782 



c"o7 ! "1 









£ 


650 


c 


660 


C. 


A "T 1 ^ 


C 


680 


-"' 


690 


c. 


"7 CiCi 


c. 


"7 ■= 17-: 


c 
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if- Wlfij y'i 1 UliiU C'.i-H 

ppTNT I! JACK ;1 ? 
RETURN 

ppjNT l! OUEE'N '■'■ i 
RETURN 

RETURN 

REM PRINT SUIT 

IF Y>39 GOTO 8700 

IF >-;>13 GOTO 8740 

PRINT "OF SPATES" 

RETURN 

PRINT "OF CLUBS" 

RETURN 

PRINT "OF HEARTS" 

RETURN 

PRINT "OF UTRNONTiS" 

RETURN 



87t't'> 


REM THIS IS i 


8770 


PP I NT " " 


O ~70£i 


PR I NT" NOW" 


p ~7Q£i 


PRINT" IF 


8800 


PRINT" 


8818 


PRINT" 



"0 GIUE THE PLAYERS ENOUGH PAPER TO REMOUE HAND 



c'tfH-tf 



£888 
r '8R0 



C 17 x ~-~ 

8988 
8930 
8948 
8958 
8968 
8978 
8988 
8999 
3888 
38 ia 
3888 
3838 
3848 
3858 
3868 
3078 
3@8@ 
3098 
3 1 88 
8118 
3 1 88 
3138 



PRINT" REHOUE" 

PRINT" YOUR 1 

PRINT" 

RETURN 

PRINT" IS EUET'YONF BACK (TYPE YES OP NO) " j 

INPUT 0$ 

Tp 05 = "YES" GOTO 8918 

PR I NT "COME ON HOW FUERYONE BACK! ! NOW IS EUERYONE BACK"; 

GOTO £878 

RETURN 

PR I NT "NOW YOU GET ONE MORE CHANCE 'TO BET YOUR HANDS SO BET THEM HIGH' 

INPUT W3 

PRINT"DIB ANYONE HPOP OUT? ENTER THE NUMBER OF PLAYERS STILL IM"5 

INPUT H8 

Z = ( W&H ) + ( W 1 '&H 1 ) + i W8*H£ 3 

PRINT "THE WINNER GETS THE WHOLE THING WHICH Is s"?7 

PRINT 

PRINT "WAHT AH0THER HAND fTYPE YES OP NO)"? 

INPUT OS 

tp 05 = "NO" GOTO 3138 

PR I NT "ARE THE SAME PLAYERS IN THE GAME (TYPE YES nP Nm " ! 

INPUT 0? 

IF os = "YES" GOTO 758 

IF 05 = "NO" GOTO 378 

PRINT "SO SORRY CHARLIE ALL YOU CAN HPAW IS FJUE'ii FJUF THAT'S 81 L" 

PRINT "WANT TO TRY AGAIN" 

IF PI =>6 GOTO 1468 

IF P8=>6 GOTO 1688 

IF P3=>6 GOTO 1758 

IF P4=>6 GOTO 1988 

IF P5=>6 GOTO 8858 

END 
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POPUL: 

DESCRIPTION 

This program calculates and prints yearly population projections for an 
area. The projection may be printed for a number of years, up to 99. The 
program uses compound interest formulas to generate the projections. 



VJ V* jam t \ W 

Individuals interested in the economics, social problems and growth factors 
of an area will find this program very helpful. This could include civic 
groups, home owners, engineers, environmentalists, and local government 
consultants. The area of interest may be a fish tank, back yard, or entire 
city. 



INSTRUCTIONS 

This program requires no special initialization prior to execution, just 
load in the program and type RUN. Popul is self instructional and will 
request all input necessary for operation. List the program for additional 
program information. 



Li Ml IAI lUIMb 

Popul will require 3K Bytes of memory for storage and 5K for program 
execution. This program should execute without problems in most 4K Basic 
compilers. 
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POP! II. 



lOOPEH PfiPUL FalSIC PROGRAM BEGINS AT LIMP SJ01 
:i 1 8PEM 

i 3 GREW 

LTORE'M HFSCRIPTIOM— RMriNQ THE MANY APPLICATIONS OF THE COMPOUND 

150PEM INTEREST FORMULA IS THAT OF' POPU! FIT I OH 



PROJECTION,, IT IS 
1'HFlT IT' ASSUMES 
HOT IT IS USEFUL FOR SHOW IMG ROU( 



■tOT EOT I RELY AC 
TEA BY 1 HCRERSE 



CURATE IM 

EACH YEFiR = 
HLY HOW AN 



FA HILL lHCFEASF. .. THIS PROGRAM HILL 
HERATE DATA FOP ANY NUMBER OF YEARS AT ANY 
GUESTED I NTERUFlLS > 



1 68PEM 

1 70REN 

1 75REM 

1 80REM 

1 85REM 

190REM 

19 SEEM 

209REM INSTRUCTIONS — TYPE »PUH 5 AN'u PHI | nu INPTRI !PTTnHP„ 

E05PEM 

£15 DIM F ( 1 08 3 

£17 DIM 7(100) 

££0 PRINT "THIS PRilGRAM HILL. PROJECT POPULATION GROWTH Fflp ANY NUMBER np 

£38 PRINT "YEARS USING THE COMPOUND INTEREST FORMULA." 

P40 PRINT 

£50 PRINT "WHAT IS THE NAME OF THE AREA WE ARE STUDY TNG" 

£68 INPUT fl$ 

£78 PRINT 

£88 PRINT 

£98 PRINT "PRINT THE ANNUAL PERCENT OF GROWTH FOR VQUP Pnpi l| RTTPN" 5 

388 INPUT R 

318 PRINT 

3£0 PRINT "FOR HOW MANY YEARS DO YOU WISH TO HA 1 'E DATA PUMP! ITEP" " 

338 INPUT N 

349 LET 1=8 

3 by Lh.T A = N 

368 LET A£ = A 



! F' A < 9 THE 



: '0 



388 IF A - 9 THEN 598 

398 PRINT "LIST THE FIRST 9 YEARS TO HE CfiMPI ITEIu sFPPRPTE YP! !R MliMBFRP' 

391 PRINT "WITH COMMAS. " 

4S@ GO 1 590 

418 PRINT 

4 £8 PRINT 

438 PRINT "WHAT IS THE YEAR FOR YOUR BASIC TiflTfl" S 

448 INPUT E 

458 PRINT 

468 PRINT "WHAT IS THE POPULATION FOR THE BASE YEAR Win PfiNMAP PLEAPEO" 

478 INPUT P 

488 PRINT 
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490 

500 

510 
5£0 
530 
540 
545 
550 
560 
579 
571 
580 
590 
591 

600 

605 
610 
6£0 
630 
640 
650 
660 
670 
680 
6 90 

700 

710 
7£S 
730 
740 
750 
760 
770 
730 



GO TO 633 

j r-jpijT F C I + 1 ) ? F f I ■+■£ ) ? F f I +3 ) ? F ( I +4 ) ? F C I +5 ) ? F ( I +6 ) ? F 1 1 +7 ) ? F C I +8 ) ? F ( I ■+ 9 ) 

LET Ff = fi-9 

LET I = 1+9 

IF ft < 1 THEtl 419 

IF' ft < 9 THEN 605 

PRINT 

PRINT "LIST THE NEXT 9 YEARS YOU WISH COMPUTED" 

PRINT "LIST THE H ?N? "YEARS YOU WISH COMPUTED AND" 5 9-N? "ZEROS" 

PRINT "SEPARATE NUMBERS WITH COMMAS. " 

GO TO 500 

PRINT "LIST THE FIRST 9 YEARS FOR WHICH YOU WISH PROJECTIONS" 

PRINT "SEPARATE THE NUMBERS WITH COMMAS." 

GO TO 500 

PRINT 

PRINT "LIST THE LAST "5 ft? "YEARS AND" 5 9-A? "ZEROS" 

GO TO 50O 

PRINT 

PRINT "POPULATION PROJECTION IS AS FOLLOWS" 

PRINT 

PRINT ft$ 

PRINT 

PRINT ,! DATE 

PRINT 

FOR M = 1 TO H 

LET K = 1 ■+■ (R--- j.00:i 

LET Y = Xt(F(M)-E) 

LET Z CM) = INT (P"*Y) 

PRINT FCM) ?ZfM) 

NEXT M 

PRINT 

PRINT 

END 



POPULATION 
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PROFITS: 

DESCRIPTION 

PROFITS is used to analyze the profit from various departments of a company. 
With slight modification this program can analyze various household expenses 
such as: phone, heat, light, groceries, etc. versus income. For business 
use the amount of inventory and its' rate of change is taken into consideration 
when determining the profit or profit margin. 



U S E R? 

Individuals who are cost conscious put this program to good use. It could 
be used to analyze house-hold spending versus income. These results could 
be used to streamline or trim the budget. Businessmen as well as efficiency 
experts could benefit from using this program by increasing their departments' 
profit margins. 



IN STRUCTIO N S 

List the program for detailed instructions. Profits is self prompting and 
will request all needed information while executing. 



L I MI T AT IO N S 

The TAB ( ) statement is used throughout this program starting in line 
320. This program will store and execute in 4K Bytes of memory in most 
systems, excluding the amount of memory required to store the basic compiler. 



787 



1 1 REM 

1 4PEM 

3 WEM DESCRIPTIONS THIS BASIC PROGRAM COMPUThS PROP I ! HE I LI TY UP 
I6REM riEPRRTMFMTS OF" A FIRM. 

1 7REM 

i p/pr7=iS&;£K?KW£:£:S-£:ft:*^ 
Of-jpfrf.-j 

ppp E jvJ TNfiTPIirTTfiNR — TYPE "RUN" TO USE 

P4PEM PROGRAM HILL ASP FOR NUMBER OF- DEPART- 

i^REM MFMTS ? SALES » BEG I MN I NG I NUEHTOR Y ? END I NG 

P8REM TMUEMTORYj AND PURCHASES 

34REN 

ISO PRINT "HOW MANY DEPARTMENTS DO YOU HAUE"? 

110 INPUT D 

IPO PRINT "PERIOD LENGTH CMOS) " j 

130 INPUT P9 

140 LET D9 = lOO Si 30 s PS 

150 PRINT "COMPANY NAME"? 

ISO INPUT Cs 

170 PRINT " 

I! 

IS PRINT "FnP FRCH DEPARTMENT ENTER:" 

190 ppiMT " SALES? BEGINNING INUE'MTORY? ENDING INVENTORY? PURCHASES" 

POO PRINT 

£10 FOR N = 1 TO Ti 

£'£0 PRINT N? 

£30 INPUT S CM) ? B CN) ? E (M) ? P (N) 

£40 LET C(N) = PCN) + BIN) --ECN) 

£50 LET GOT) = S(N) - CCN) 

£iSO NEKT N 
£70 pp. tnt" 



£90 PRINT 

30O PRINT C5 

310 PRINT 

:-:£fi PRINT TAB (46) ? "GROSS" ? TAB (58) I ""; GROSS" 

-i:-:Pi RPTNT TRIUlPri 5 "SALES" J TAB (£2) 5 "OG^S" 5 TAB (34) 5 "V.CsGsS" i 



788 



':.!4W 

359 

368 

Cj T 1 Ci 

380 

400 

41 R 



'H-DW 



C 46 3 5 " PROF I T " ? TAB ( 58 3 ? " PF'OF I T * 



488 
490 

500 

510 



540 
558 
560 
570 
588 
590 
688 
610 
62@ 
630 
640 
650 
669 
fo i'''fci 

688 
€■90 

700 

713 



= K I Pi i 

PRINT 

FOR N =: 1 Tfi ]j 

PRINT "HEFT" 5 N5 

PR I NT TAB C 1 8 3 ? 8 ( N ) 5 TAB C £2 3 ? C ( N 3 5 

PR I NT TAB f 34 1 j I NT' ( 1 0088=60 C N ) -'"S ( N 3 + . 5 3 ••- 1 00 ? 

PR I NT THE f 46 3 5 G ( N 3 ■■ TRB ( 58 ) ? I NT ( 1 8888®G ( N 3 sS ( N 1 +.53 ,-" 1 08 

let x = x + s n-n 

LET Y = Y 4 C(N3 

LET Z = 7 + G(N3 

PRINT 

PRINT "J0TAL8" ? TAB ( 181 5 X? TRB (£23 j Y? TRB 1343 j INT ( leeOO^fVX 

PR IN! TRBi'463 ? Z? TRB (583 5 INTl 1 0000 w Z-- y X +- .5 ).--•' 188 

PRINT 

PRINT 

PRINT 

PRINT TRB ( 183 5 "PFRCENT" 5 TRB (223 j "PERCENT" j TRB (343 ? "PERGEN 

PR I NT TAB C 46 3 5 " PERCENT ,! ? TRB ( 58 3 j "I3RY3 " 

PRINT TRB (103 5 "OF SALES" j TRB (£23 j "OF CvQx'S" j TAB C~;43 ; "npns 

PRINT TAB (46 3 j " INUENTORY" ? TAB (583 5 " INUENTHRY" 

PRINT 

PRINT 

V OR N = 1 TO 

PRINT "DEFT" 5 N5 



S PFT' 



PRINT TAB (18 
PRINT TRB (£2 
PRINT TAB (34 
PRINT TAB (46 
PRINT TAB (58 



3 ? INT (10888^5 (N3^'X + .53 ••"188? 
3 j I NT ( 1 888 a^C ( !i 3 --"Y + ,53 --' 1 80 5 
3 j I NT ( 1 0080SG C N ) .-"Z + =53 .••' 1 88 ? 
3 ? I NT ( 1 8888«E (N 3 Ai + .53 .-•- 1 88 ? 



3 j If 



C U9 ffi ( ( t: ( N 3 +E ( N 3 3 



::*C(N3 



;;i.--i@8; 



NEXT N 

PRINT 

PRINT "OUERALL INVENTORY TURHOUER" 5 

PRINT INT(D9*(M/Y) +. 53---188; "DAYS" 

PRINT 

pp j j-j j » 

FN!"! 
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EXAMPLE PROS! I'M 



! lOUj MRNY UEPHRTMEI-iT'S DO YOU HrlUE 

PERI.iJ.ri LFUGTH f MOUTHS J ?1S 
COMPANY HOME. 7HHRRY GREEM CO. 



FOP EACH 'DEPHRTriENT ENTER" SALESEBEGIHHIMG IMUEHTORYj EJTDIUb JN' IE.M1 HRY? RUPC! \\ 



•;■' -' i. : : | 1. 1 ,4 !?! 1. 1 5 . '•■; j. i , i :. : ! ;. : l l : ■'! , , . ' ; : ! ! ; i i : '1 ' i R ? ,;: ! ! J k 

•:.'=,i, : i;, : i!.'!:.. : !!, : j ,, ■:- ,!. : h. : i!'i!.-ii: i * '~.\ : » isDOO ? "GCRC 



HRRRY GREET! CO. 



.;i!~ 



i--'SvijEiT 



.priF'TT 



DEF'T 

DEFT 



TOTRLS 



/■>: M : ;-|S ;!'■ if! 
,--,-i: ; ii.-|HI;: : l 
!::: ,!; : !i : n ; 1L ; !' : ! 

IfjfiyFlflH 



"!i:VI!-::M ::!;••■! 

■ ■ : ,H,: i .-| i .: : |j..j 



IR'C.GO 

r.: ; ii;1 n OO 



] ,: ; |:i!.-1!>jy 
;jj. : -S!. ; '!/!i;;ti::-! 

"lOOUOO 



— t:: iPi . yy 
-PO.GO 

-GO. MW 



DEFT 
DEF'T 
DEF'T 



PERCENT 



! ! i 

nr- 



SO 



jF" C-- - 'G-- 

33 . 77 
23.08 
46. 15 



QUEER! L INVENTORY TURUOUER 



PEPCR! IT 

RFJi'JS F'FT 



PERCENT 
I PUERTO 



DRIVE; 
IHUEMTO? 

315 "DFGY 
300 DHY' : 
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QUBIC; 

D ES CRI PTION 

This is the game of TIC-TAC-TOE in three dimensions. The game is played on 
a 4x4x4 board. The playing board may be printed before each move, if desired, 
This is a very complex game and it will be extremely difficult for you to 
beat the computer, although I have seen it done where the player solves 
the algorithms with a calculator before each move. 



■rafiJrC»fa>JiiJLiiJmii 

Game enthusiasts and problem solvers will find Qubic both challenging and 
interesting. 



INS TRUCTION? 

Type RUN and Qubic will ask you if you want instructions. Each move codes 
a 3 digit number specifying the level and location of the move. All necessary 
prompts and instructions will be generated by the program during execution. 



LIMI TATIO N 

This game uses two dimensional arrays; see line 315, throughout, 
code requires 7K Bytes for storage and will execute in 12K. 



The source 
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1 38REH 

1 38REM DESCRIPTION — The progrrh plhms 3-d i hens icinrl. fic-THc-TOE an R 

149REM 4X4X4 bdhf.d with the user. The. user ehn win if he plrvs edrreetl 

1 58REM 

168REM INSTRUCT I OriS — Tmpe "RUN" rud fdlldu instructions, 

1 78EEM 

i88REM 

•j CiGlpF'M S S: ff: S :*: W & '^ ■* "' : * "* * '" ^ * S: ~~~ 

E80REM 

£18 PRINT "HO YOU WANT INSTRUCl'IuNS" ? 

££8 INPUT C$ 

£:'!0 IF CS="NO" THEM 3£8 

?4« IF C£="YES" THEN £65 

£58 PRINT "INCORRECT ANSWER. PLEASE TYPE PEMYESREM OR REMNOREM"? 

£60 GOTO ££0 

£65 PRINT 

£7Pi PRINT "THE GAME IS T I C~T AC-TOE IN R 4 X 4 X 4 CUtfE. " 

poo ppimt "FfiHH MfiUE IS INDICATED BY A 3 DIGIT NUMBER? WITH EACH" 

ocp, pp T NT "DIGIT BETWEEN 1 AND 4 INCLUSIUE. THE DIGITS INDICATE THE" 

300 PRINT "LEUEL? ROW? AND COLUMN? RESPECTIVELY* OF THE OCCUPIED" 

385 PRINT "PLACE. 

336 PRINT 

- ;! -j-7 pRIN T "Tn PRINT THE Pi AYING BOARD? TYPE CZERlJi AS YOUR MOUE. " 

orcj pp!MT "THE PpriGRAM WILL PRINT THE BOARD WITH YOUR MOUES INDI-" 

o P ,9 print "GATED WITH A CY) ? THE MACHINE'S MOUES WITH AN CM) ? AND" 

310 PRINT "UNUSED SQUARES WITH A C J." 

31£ PRINT "TO STOP THE PROGRAM RUN? TYPE 1 AS YOUR MOUE." 

3 15 D I M X i 64 ) ? L 1 76 ) ? M f 76 ? 4 ) ? V ( 1 6 } 

3 £8 FOR I = 1 TO 16 

338 READ YCI) 

340 NEXT I 

350F0R 1=1 TO 76 

368F0R J = 1 TO 4 

378 readmci?.j:i 

380 NEXT J 

398 NEXT I 

488 FOR 1=1 TO 64 

418 LET X (I) =8 

4£8 NEXT I 

438 LET Z=l 

44@ print "DO YOU WANT TO MOUE FIRST""? 

458 INPUT S> 

468 IF S£="NO" THEN 638 
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4 79 IF 3$= "YES" THEN 5@6 

A 30 PRINT "INCORRECT ANSWER. PLEASE TYPE REMYESEEM OP REMNOREM, 

4 9© LiOTO 4^9 

590 PRINT " " 

516 PRINT "YOUR NONE"? 

5P0INPUT.J1 

5£3. IF J 1 = 1 THEN £770 

5££ IF 01 OO THEN 525 

5E3GOSUB P550 

5P4GOTO500 

535IFJK 1 1 1THENP750 

5E6IFJI >444THEN£759 

530 GOSUB £500 

540 LETK 1 = 1 NT i. .J 1 .--• 160) 

550 LET J£=LJl-Kr*lS0'i 

569 LET K£=INT!'.J£.--10) 

570 LET K3= .Jl - K 1*160 -K£«i@ 
530 LET M=lb«Kl+4*:K£+K3-£0 
590 IF XO13=0 THEN 620 

600 PRINT "THAT SQUARE IS USED, TRY FiGAIN" 

610 GOTO 500 

6£0 LET XCM)=1 

630 GOSUB 1640 

640 FOR J=l TO 3 

650 FOR 1=1 TO 76 

660 IF J=l THEN 7£6 

67© IF J=£ THEM 798 

630 IF 3=3 THEN 939 

690 NEXT I 

700 NEXTJ 

710 GOTO 1300 

7£0 IF LCI)<>4 THEN 690 

730 PRINT "YOU WIN AS FOLLOWS "J 

740 FOR -J=l TO 4 

750 LET M=M(I»J) 

760 GOSUB 1570 

77© NEXT J 

780 GOTO 1490 

790 IF L(I)<>15 THEN 690 

800 FOR J=l TO 4 

810 LET H=M(IjJ) 

8£0 IF X 01)00 THEM 866 

830 LET X 01) =5 

840 PRINT "MACHINE NOUES TO"? 

85© GOSUB 1570 

860 NEXT J 

870 PRINT "» AND WINS AS FOLLOWS" 

880 FOR 3=1 TO 4 

890 LET M=M(I»J) 

900 GOSUB 1570 

910 NEXT J 
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930 GOTO 1490 

•~t--:i~i TF i n )<y? THEM 690 

940 PEIMT"NICE TRY MACHINE MO'JES TO"? 

950 FOR -J=l TO 4 

960 M = M C I ? J) 

979 IF X 01)00 THEN 10 1© 

990 XCM3=5 

990 GOSUE 1570 

1000 GOTO 500 

1020 GOTO 1300 

1030 FOR I = 1 TO 76 

1 04@ let L C I 3 =X C M ( I ? 1 3 1 +X CM C I ? 23 3 +X CM f I < 3) ) +X CM C I ? 4) ) 

1050 LET L = LCI) 

I960 IF L <2 THEN 1130 

1070 IF L>=3 THEM 1133 

1080 IF L>2 THEH £233 

1090 FOR -J = 1 TO 4 

1 1 0© IF X C F'1 C I ? -J ) 3 < >0 THEN 1 1 SO 

1 110 LET X CMC I » J) )=l---8 

1120 NEXT J 

1130 NEXT I 

1140 GOSUB 1640 

1 1 53 FOR I = 1 TO 76 

1 1 60 IF L C I 3 =1 ■•-•.: THEN 2363 

1173 IF LCI 3=1+3.-3 THEM 2360 

1 1 SO NEXT I 

1 1 99 GOTO 1 83© 

1208LET Z = 1 

1210 IF X C Y C Z 3 3 =9 THEM 1 258 

1220 LET Z=Z+1 

1230 IF Z<>17 THEM 121 

1240 GOTO 1720 

1850 LET M=YCZ3 

1260 LET XCM3=5 

1270 PRINT "MACHINE: M0"E8 TO"? 

1283 GOSUE 1570 

1290 GOTO 598 

130O LET X=X 

1313 FOR 1 = 1 TO ,-'6 

1320 LET LCI)=XCMCI? 13 3 +X CMC I? 23 3 +X CM CI? 33 3+XCMCI?43 3 

1330 LET L=LCI3 

1340 TF L<18 THEN 1410 

1350 IF L>=li THEN 1410 

1368 IF L>18 THEM 2233 

1373 FOE J=i TO 4 

1383 IF XCMCI?.J3 3O0 THEN 14u8 

1 398 LET X C M C I ? J 3 3 = 1 --"8 

1488 NEXT J 

1410 NEXT I 

1428 GOSUB 1648 
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1430 FOR 1=1 TO 76 

J 448 IF L ( 1 3 =. 5 THEM £360 

1458 IF L C 1 3 =5+3.-"8 THEN £360 

1460 NEXT I 

1470 GOSUB £500 

1480 GOTO 1030 

1490 PRINT " " 

1500 PRINT "HO VOU WANT TO TRY ANOTHER GAME" I 

1510 INPUT Xs 

15£0 IF X*="YES" THEM 400 

1538 IF X£="NO" THEM 1568 

J548 PRINT "INCORRECT ANSWER. PLEASE TYPE PEMYESREM OR REMNOREM' 

1550 GOTO 1510 

1560 STOP 

1 570 LET K 1 = I NT ( ( M~ 1 3 -•" 1 6 3 -H 

1538 LET J£=M--16 S MK1-13 

1 598 LET K£= I NT ( ( ._l£- 1 3 -'"4 3 + 1 

1688 LET K3=M~fKl-13®16-!:K£-i.3 : *4 

1618 LET ri=Kl*188+K£ w 18+K:3 

1629 PRINT Mj 

1638 RETURN 



1 640 


FOR 


S=i TO 76 


1 650 


LET 


•J 1 = M t S ? 1 3 


1 668 


LET 


J£=MCS ? £3 


1 678 


LET 


.i:-:=Mf:=;,:-:1 


1688 


LET 


.J4=M ( S , 4 ) 


1698 


LET 


L. (S3 =Xl-Jl 3 +X l 



'.) +-XCJ33 +XLJ43 
1788 MEXT S 
1718 RETURN 
17£8 FOR 1=1 TO 64 
1738 IF XCI3 08 THEN 1888 
1748 LET X(I3=5 
1758 LET 11=1 

1768 PRINT "MACHINE LIKES"? 
177y GOSUB 1578 
1788 PRINT " " 
1798 GuTu 588 
1888 NEXT I 

1818 PRINT "THE GAME IS A DRAW" 
18£y GOTO 1498 
1838 FOR K=l TO 18 
1848 LET P=8 
1850 FOR I=4'«K-3 TO 4W. 
1868 FOR J=l TO 4 
1878 LET P=P+X(Mi:i ? J3 3 
1888 NEXT J 
1898 NEXT I 
1988 IF P<4 THEN 1940 
1910 IF P<5 THEM 1970 
19£0 IF F<9 THEN 1940 
1930 IF P<18 THEM 1978 
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194@ NEXT K 

1959 GOSUE £500 

1960 GOTO 1£'00 
1970 LET 3=L--S 
1980 FOR I=4 s K-< 
1 990 GOTO £370 
£000 NEXT I 
£010 LET 8=0 
£0£0 GO ! U 1980 
£030 DRTFi 1 j 49?" 



\:#K 



13? bl 5 fo4? it'5 i 



-"-> 1 £ 



• ? 4c! !Ci! Ho 



£ 40DF1TH 1 ? £ ? 3 ? 4 ? 5 ? 6 ? 7 ? 



8?9? 10! 11? 12? 13? 14? 15? 16? 17? 13? 19?£8 



£050 DflTH £1?. 



£4; 



.O? C.t'5 C.f 5 CO! 



30? 31 ? 3c ? -J 3 ? 34? 35? ob? J( ? ■ 



? fi60 DATA 39? 40? 41 ? 4£? 43? 44? 4'd? 46? 47? 48? 49? 50? 51 ? 5£? 53? 54? ! 

£070 DflTfi 57? 58? 59? 68? 61 ? 6c? fc»3? b4 

o figy lifiTO 1 ? 17? 33 ? 49 ? 5 ? £ 1 ? 37 ? 53 ? 9 ? £5 ? 4 1 ? 57 ? 1 3 ? £9 ? 45 ? 6 1 



1 4 j 3feJ ? 46 ? 6c 



-'.iy ' 



£0y0 iJHTH £? IS'? 34? 50? 6? ££? 38? 54? It-? c"6? 4c 

£ 1 £10 DATA 3 ? 1 9 ? 35 ? 5 1 ? 7 ? £3 ? 39 ? 55 ? 11? £7 ? 43 

£ 1 1 9 DflTfl 4 ? £0 ? 36 ? 5£ ? 8 ? £4 ? 40 ? 56 ? 1 3 ? £8 ? 44 

£ 1 £0 DflTfl 1 ? 5 ? 9 ? 13? 1 7 ? £ 1 ? £5 ? £9 ? 33 ? 37 ? 4 1 ? 

£ 1 30 DflTfl £ ? 6 ? 10? 14? 1 8 ? ££ ? £6 ? 30 < 34 ? 38 ? 4£ 

£ 1 4@ DflTfl 3 ? 7 ? 11? 15? 19? £3 ? £7 ? 3 1 ? 35 ? 39 ? 43 ? 47 ? 5 1 ? 55 ? 59 ? 63 

£158 DflTfl4?8? 1£? 16? £0? £4?£853£?36? 48? 44? 48? 5£?56? 68?64 

£160 DflTfli?6? 11? 16? 17?££?£7?3£?33?38?43? 48? 49?54?59?64 



? b8 ? lb? 3c' ? 4o* ? bH* 

■f _! ? T- ? ? -_'0 ! _' I' !t'l 

? 46 ? 50 ? 54 ? 58 ? 6£ 



£ 1 70 DflTfl 1 3 ? 1 ? 7 ? 4 ? £9 ? £6 ? £3 ? £8 ? 45 ? hc ? 



«i 



:■£' ? t> 1 ? •_ 



£ 1 88 DflTfl 1 ? c 1 ? 4 1 ? 6 1 ? £ ? ££ ? 4£ ? 6c ? 3 ? £3 ? 43 ? 63 ? 4 ? £4 ? 44 ? 64 



: 1 98BATA 49 ? 37 ? £5 ? 1 3 ? 50 ? 38 ? £6 ? 1 4 ? 5 1 ? 



i5?5£j48?£8s 16 



£ £88BfiTA 1 ? 18? 35 ? 5£ ? 5 ? ££ ? 39 ? 56 ? 9 ? £6 ? 43 ? 60 ? 13? 38 ? 47 ? 64 

£ £ 1 ©DATA 49 ? 34 ? 1 9 ? 4 ? 53 ? 38 ? £3 ? 8 ? 57 ? 4£ ? £7 ? 1 £ ? 6 1 ? 46 ? 3 1 ? 16 

£ ££0 DATA 1 ? ££ ? 43 ? 64 ? 1 6 ? £7 ? 38 ? 49 * 4 ? 23 ? 4£ ? 6 1 ? 1 3 ? £6 ? 39 ? 5c" 

££38 FOR 3=1 TO 4 

££48 IF X CM ( I ? J J X >1 ■■-8 THEN £338 

££58 LET X CM CI? J) ) =5 

££60 IF LCIK5 THEN ££90 

££? @ print "LETREMS SEE YOU GET OUT OF THIS: MACHINE MOUES TO"? 

££88 GOTO £388 

££90 print "YOU FOX. JUST IN THE HICK OF TIME? MACHINE MOUES TO"? 

£388 LET M=MCI?J'i 

£310 GOSUB 1570 

£3£8 GOTO 5a@ 

£338 NEXT J 

£: -;4Pi PRINT "MACHINE CONCEDES THIS GAME." 



£370 IF I-INT(L--4-)S4>l THEN £4Q0 

£888 LET A=i 

£398 GOTO £410 

£488 LET fl=£ 

£410 FOR J=A TO 5-fl STEP 5-£'*-A 

£4£0 IF XCMCI?J))=S THEN £450 

£438 NEXT J 

£440 GOTO £0fc10 
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: '4d8 LlT X ( M i" I , .J l ) =5 
:'466 LET M=Mi:ij.J) 
@ 
?>8 

F.flPl 



',17 



C.-fCKJ 



PRINT "MACHINE TAKE".' 

GOSUB 1576 

GOTO 508 

FOR 1=1 TO 64 

IF ?aiK>1 -"8 THEN £' 

LET_X ( I J =0 

RETURN 



-:n 



5530 

?550FORI=1TO4 

:! 5 6£iF0R.J= 1 T04 

:, 56£FuRIi = iTOJ 

E:564PRINT" " ? 

2566NEXTI1 

::570FORK=1TO4 

::600LET Q= 1 6* I +4 s U+K-£8 

;:6I9If:«; (Q) < >othfn£630 

:'6£0PRINT" ( 3 "j 

: 't.30IFX (Q) < >5THEN£b50 
5640PRINT" (N) "? 

ibSOIFX (Q3 < >iTHEN£660 
2655PRINT" m "5 

::660IF K CQ3 < M-'STHEf !£fc.?0 
i:665PRIMT" C J •■; 

?67@MEXTK 

;:6S0PRiNT 

: :690PRIHT 

i:7O0NEXTJ 

1 71 ©PRINT 

;:7£0PRINT 

;:730NEKTI 

i:740RETURN 

;:750PRINT" INCORRECT MOUE* RETYPE IT—' 

■760GOTO5£8 

i:770END 
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DG YOU WANT INSTRUCTIONS ?YES 

THE GAME IS T1C-TAC-TOE IN A 4 V 4X4 CUBE. 
EACH MOVE 'IS INDICATED 5Y A .3 DIGIT NUMBER* WITH EACH 
DIGIT BETWEEN i AND 4 INCLUSIVE* THE DIGITS INDICATE THE 
LEVEL* HOW* AND COLUMN.* RESPECTIVELY* OF THE OCCUPIED 
PLACE o 

TO PnifiT THE PLAYING BOAPD* TYPE 2 (ZERO) AS YQUP MOVE. 
THE PP'GGPAH WILL PRINT THE 30APD WITH. YOUP MOVES INDI- 
CATED WITH A <Y)* THE MACHINE'S MOVES WITH AN CM)* AND 
UNUSED SQUARES WITH A ( > « 

TO STOP THE pnOGHAM PUN* TYPE 1 AS YOUR MOVE. 

DO YOU WANT TO MOVE FIP.ST ?0 

IMCOP.KECT ANSWEPo PLEASE TYPE HEM YES ITEM OP. REMMOHEM. ?MO 

MACHINE MOVES TO 111 

YOUR MOVE ?3 

CM) < > ( > t ) 

( ) ( ) ( > < > 

( ) ( ) < > C > 

< ) ( ) < > < > 



( ) ( ) ( > < > 

( ) ( ) C > < > 

( ) ( > C ) ( ) 

( > C ) < ) c > 

< ) ( ) C ) c > 

< ) € > < ) ( > 

< ) < ) < ) < > 

( ) C ) < ) < > 

C ) C ) < > < > 

< * c > < > < * 

C ) C ) ( > < > 

< ) < ) < > < > 
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RATES : 

D ESCRIPTIO N 

This program calculates effective annual interest rates for various interests 
with different compounding times. 



JMLACjiBBlI nl.JK.il 

Persons planning on spending money who may have a choice of financing plans 
can use this program to determine the true or effective interest they will 
be repaying, i.e. Businessmen, Housewives, Homeowners, etc. 



INSTRUCTIONS 

After the program has been loaded into memory type RUN and the program will 
prompt for all necessary information. 



L I MIT AT IONS 

Rates uses two dimensional arrays; see line 530. Line 550 has a MAT INPUT 
statement as does line 670. Line 770 contains a TAB ( ) statement and lines 
490 and 1020 contain print using statements. The program will require 2K 
Bytes to store the source code and 7K Bytes for execution. 
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.f.|T jrc; 



1 1QREM 

14QREI1 'DESCRIPTION—THIS BASIC PROGRAM COMPUTES EFFECT I UE ANNUAL 

150REM PATES OF INTEREST. ... . 

1 68REM 

I7Pipni TNRTPlirr IONS— TYPE 'RUN' TO USE 

180EEN 'INPUT IS REQUESTED 

I 90REM 

808EEH 

££8REM 

<=,-:;Cl TjTf.-j P f ?fil , U fpfi, £0) , Q f £0) ? Z (£8) 

549 PRINT "NOMINAL ANNUAL INTEREST RATES—UP TO £0 DIFFERENT RATES" 

550 MAT INPUT R 
560 LET Q1=NUM(X) 
570 FOR J=l TO Ql 

5S8 IF RUK.5 THEN 688 

590 LET R ( ,J 3 =R f J ) --' I 88 

600 NEXT J 

61 fl PRINT 

£.2& PRINT "Ffln-I RATE CONFOUNDED HOW MANY TIMES PER YEAR?" 

ft ^O ppiht "FDR FflHH RATE YOU CAM TYPE IN UP TO £8 DIFFERENT COMPOUNDING' 

^,40 PRINT "TIMES (TYPE IN A ZERO FOR CONTINUOUS COMPOUNDING)" 

658 FOR 0=1 TO Ql 

660 PRINT "FOR " ? 188®^: ( J) 5 - 

678 MAT INPUT Z 

688 LET QCJ3=NUM(X3 

698 FOR K=i TO QCJ3 

788 LET M(J ? K3=ZCK3 

718 NEXT K 

7£0 NEXT J 

780 FOR .J=i TO 5 

740 PRINT 

750 NEXT J 

7 ftfl print "NOMINAL ANNUAL X" J TABCE63 I "TIMES COMP. ■'ANNUM" j 

778 PRINT TAB (51) 5 "EFFECT I UE ANNUAL ";;" 

■pgQ priut " "jTAECh'S) j " "5 

798 PRINT TAB (51) 5" " 

800 PRINT 

810 PRINT 

8£0 FOR J=l 10 Ql 

838 FOR K=l TO QCJ3 

840 IF NCJjK3=8 THEN 988 

858 LET N=N(._bK) 

868 LET R=R(,J) 

878 LET E= 1 88 ffi ( ( 1 +FVN ) TN- 1 3 



800 



888 LET fl=HUjlO 

89@ GO TO 1.010 

908 LET E= f E>!P f R f J j ) -• j.) « j 00 

930 LET R f J 3 =p f J 3 * ; 1 80 

940 PRINT USING 1180? Rf'.JJ?E 

950 GO TO 1838 

1810 LET P(Jj=Rf J 1*1 00 

1 0:20 . PR I NT US I NG 1 1 1 0? R ( J 3 ? R 5 ! 

1830 LET RCJ3=RU},T88 

1 848 NEXT K 

1858 PRINT 

1868 NEXT J 

1 1 00 ' ### . ### ! 

■I i 1 C-i ' H--H-44- 4i-«-4+ 

J 1 i. ; „.= * TTTTTT b rrTTTT 

1 -Z-C-iCi FHTi 



rnhi!- 
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SAMPLE. PROBLE M 
RUM 



NOMINAL ANNUAL INTEREST RATES - UP TO £0 DIFFERENT RATES 

? 1 £ i 6 1 ? 1 £ - 98 ? 6 ? 6 . 5 ? 1 6 ? 1 2 . 5 

EACH RATE COMPOUNDED HON MANY TIMES FER YEAR? 



FOR EACH RATE YOU l 
(TYPE IN A ZERO FOR 



FiM TYPE IN UP TO SO DIFFERENT COMPOUNDING, TIMES 
CONT I NOUS COMPOUND I HG ) » 



FOR 


IE. 61 


" ■ p 


FOR 


1.2.98 


?3 


FOR 


6 . 80 


?0 


FOR 


6 . 59 


7' 2 


FOR 


12.00 


:'']. 


FOR 


12.50 


?0 



10MINAL ANNUAL •-. 
12.610 
1 £ . 980 

6. OOEi 

6.580 

6. 588 

6 . 598 

1 £ . 000 

12.500 



TIMES COMF 



::ONT 



21 
30 
COMP . 



CONT. COMP. 



EFFECT I UE Fit-ifll 
13.8968 
13.8282 



IAE 



b . b i 
12.68 
13,3148 



5 b 
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RETIRE; 

DES C R IPTION 

This program computes the rate of retirement pay for a civil service worker. 
It can be modified to generate retirement schedules for other plans as 
desired. 



USE R S 

Persons desiring to plan for their retirement will find this program very 
benefical. In addition to providing you with a retirement pay schedule it 
can be very useful Now in planning or deciding which job to take or what 
potition or level of current income to work towards. While this program has 
been set up for government workers it can easily be modified to encompass 
any retirement plan beigh offered by an employer. 



INSTRUCTIONS 

Upon execution the program will ask if you want instructions. Type 1 for 
Yes or for No. The program will request all necessary data as needed to 
determine your retirement benefits. 



L IM I TATI O N S 

Starting in line 1020 the DEF FNX ( ) statement is used. In addition the 
PRINT USING statement is used extensively through out this program. RETIRE 
will require 6K Bytes of memory for program storage and will execute in most 
8K Basic compilers with 7K Bytes of available memory. 
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. U-iff 



1948 

1 -^ ■■_»;'..' 

1080 
1 999 

1 i CiC* 

1110 

1 1 £0 
1139 
1140 
1150 

1 1 6y 

1170 
1180 

A J- -■■'■J 

1210 

1230 

1 pd.fi 

1 C -_!t< 

1 £68 
1 £70 
1 c!t=y 

1 300 

1310 

1330 
1 340 
1 358 
1 368 
1378 
1 430 
1448 
1 4'Dki 
1 468 
1461 
1 46£ 
1463 



i - hi - !y 

Tsjrp p-|.rn (Mi 5 Di « Yl ) 
F'OR I = 1 TO i£ 
RE'FlD MCI) 

ppt nt h nn s'nt i ------ 

TNPj !T 

ET'C'T 



365*Y 1 



INsTP! If-TTHNS 



type i nn TVPF 



in ! 
TF Tl = 8 GOTO 1£60 

PP I NT ,r FILL UfiTH ENTRIES RRE. NUMERICAL HMD SEPARATED" 

PRINT " BY COMMAS WHEN THERE IS MORE THAN ONE ENTRY" 

PRINT !i ALL 'DATES ARE MONTH? DAY? YEAR" 

PRINT 

PRINT " THE ENTRY FOR MONTH? BAY? YEAR? SALARY: " 

PRINT " -ARE PAY CHANGE DATES WITH APPROPRIATE SALARY?" 
PRINT " --FMTRTES ARE TO BE IN REUERSE CHRONOLOGICAL ORDER?" 
PRINT " -HHEN THREE YEAR PERIOD IS OBTAINED? ENTRY HILL" 
PRINT " AUTOMATICALLY CUT OUT" 
PR I NT 

PRINT " SURUIUOP ANNUITY TO CHILDREN? " 

PRINT " -TO HURL. IFY YOUR CHILD MUST:" 

PPT NT " -fi. BE UNDER 18 AND BE UNMARRIED? OR" 

PRINT " -B. BF UNDER ££? UNMARRIED AND A FULL TIME STUDENT? OR" 

PRINT " -C. BE DISABLED BEFORE 18? INCAPABLE OF SELF-SUPPORT." 

PRINT 

PRINT " ENTER BIRTHDAY" 

INPUT M1?D1?Y1 

PRINT 

El = END (Ml ?D1 ? Yi ) 

PRINT " ENTER SERUICE COMPUTATION DATE" 

INPUT M1?D1?Y1 

PRINT 

B£ = END !':M1?D1?Y1) 

PRINT " ENTER RETIREMENT DATE" 

INPUT Mi?Dl?Yi 

PRINT 

333 = pHn ( M 1 ? D 1 ? Y 1 3 

PRINT " ENTER TODAYS DATE" 

INPUT M1?D1?Y1 

PRINT 

B5 = B4 = END CM1?D1?Y13 

PRINT "HOW flRMY CHILDREN ELIGIBLE FOR SURUIUOR ANNUITY" 

INPUT El 

PRINT 



804 



:mt 

1 488 PR I NT " ENTER MONTH < Dfi Y j YFRP , SALARY " 

1499 INPUT MIjDIjYIjS 

1560 IF S < HI GOTO 15£@ 

1510 HI = 8 

1528 B6 = FND (MisIUjYli 

1538 N = IMT(CB5 - £6 3-'" 7 3 

1548 HI = Wl + W 

1550 IF HI >= 156 GOTO 1598 

1560 SI =S1 + (W--'5£3 "*= 8 

1578 E5 = B6 

1588 GOTO 1498 

1598 W = N -Hi + 156 

1688 81 = 81 + (W--"5£3 ^ 8 

J618 H = HS = 81.-3 

1688 8 = fi£ = (B4 - B£3-'365 

1 638 H3 = ( B'3 - B£ 3 -■■■365 

1648 G = CB4 - El 3 -''365 

1658 Wl = £8875 + El - B3 

1660 W£ = I NT (Wl -•-3653 

1670 W3 = Wl -~W£*365 

1680 F = N£*i£ + INTCW3---303 

1690 84 = I NT UBS - B43--"73 

1700 35 = (HI - H3 ;ffi ( (84 +• 783 --"78 i + £*=H - HI 

1710 REM HI = HIGH SRLflRY 

17£8 REM H = H£ = HIGH THREE YEAR AUFRAGE SALARY 

1730 REM fl = fl£ = YEARS OF SERUICE AS OF TODAYS DflTE 

1748 REM A3 = YEARS OF SERUICE TO RETIREMENT HATE 

1758 REM G = YEARS OF AGE 

1768 REM F = NUMBER OF MONTHS UNDER 55 AT RETIREMENT 

1778 REM S5 = ESTIMATED HIGH THREE AVERAGE SALARY 

1788 REM TO RETIREMENT DATE 

1790 REM 84 = WEEKS DIFFERENCE BETWEEN TODAY AND RETIREMENT 

1888 PRINT 

1881 IF T9 > 8 GOTO 1878 
1848 PRINT USING 1858? H 

'1850: HIGH THREE AUFRAGE SALARY IS $######.## 
1868 PRINT 

1878 PRINT USING 1886*35 

1888s ESTIMATED HIGH THREE AUERAGE SALARY AT RETIREMENT £######„## 
1898 PRINT 
1988 UOTO £868 

1918 REM BEGIN - SUBROUTINE FOR BASIC ANNUITY FORMULA 
19£y Al = A - 5 
1938 E = .815 •* H ® 5 
1948 IF Al > 5 GOTO 1988 
1950 r = .0175 :•# |~! ® Al 
1963 D = 
1 978 GOTO £808 
1988 C = =8175 s H « 5 
1998 D = . 0£ « H s: (A --10 3 
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3318 RETURN 

SS80 REM INF'Ul IS A = VERRS OF SERUIOE 

30 38 REM I MRU! lb H = HIGH THREE SALARY 

oy4y pp.f.| OUTPUT JS E = ANNUITY 

S850 REN F.t!D SUBROUTINE FOR BfiSIC ANNUITY FORMULA 

3863 IF F '• 8 j'.fiTi'i .'063 

:-"L-i7fi PRINT USING £088?H£ 

3888? RETIREMENT ANNUITIES REDUCED ###.## PERCENT 

3 8 90 PR I NT i JS IMG. 3 1 S ? F ' 

SI 00s FOR ### MONTHS UNDER 55 YEARS OLD 

SI IS PRINT 

SIS© IF S4 = S GOTO S170 

SI 30 A = A3 

£8 58 PRINT"" RETIPEMEMT INFORMATION IS ESTIMATED" 

Si SO PRINT 

£170 GOSUE 19S0 

££93 T = E - £ * ; i'FVb) * .01 

£ £30 PR I NT LiS I NG ££'40 ? T 

££40: £######.## ANNUITY TO RETIRED EMPLOYEE (NO SURUIUOR BENEFIT) 

££50 PRINT USING ££69 j Tl 

££60; *-######.## PER MONTH 

££70 PRINT USING ££88? T£ 

££80; $*#####.## PER WEEK 

££90 PRINT 

£300 IF T > 360O GOTO £340 

£330 GOTO £360 

£340 K = . 975 ffi S6O0 

3350 L = = 9 '* CT - 3600) 

£370 Tl = T3..--'l£ 

£380 T£ = T3/5£ 

£390 PRINT USING £400? T3 

£40@: £######.## fiNNUITY TO RETIRED EMPLOYEE (SURUIUOR BENEFIT) 

£410 PRINT USING ££60? Tl 

£4£0 PRINT USING ££30? T£ 

£430 PRINT 

£440 T3 = T * .55 

£450 Tl = T3V1S 

£473 priht USING £480? T3 

£480: £######.## ANNUITY TO SURUIUING SPOUSE OF RETIRED EMPLOYEE 

£490 PRINT USING ££60 ? Tl 

£580 PRINT USING ££88? T£ 
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>_... -.J i,'-J r r- I : i 1 

£5 £8 PRINT 

£5£1 IF T9 > 8 GOTO £998 

£538 H = H£ 

£53£ GOSIJB 19£8 
£54@ R5 = . 55 ffi E 

i_ . -_■ _'-_< i !£» — e L..i_=_ ••■ • ! 

£568 fi = fi + 66 — G 
£578 GOSUB 19£8 
£590 R7 = .55 s E 

£610 IF R6 < Fl? GOTO £658 

£6£© IF fl5 > R7 GOTO £678 

£638 T3 = fi7 

£640 GOTO £670 

£658 IF R5 > R6 GOTO £678 

£660 T3 = fib 

£670 !41 = H * =6 

£630 PRINT USING £690? T3 

£690 : $######.## ANNUITY TO SURUIUIMG SPOUSE OF EMPLOYEE 

£700 Tl = T3/"l£ 

£710 T£ = T3^5£ 

£7£0 PRINT USING ££60? Tl 

£730 PRINT USING ££88? T£ 

£740 PRINT 

£758 IF El =8 GOTO £988 

£751 A5 = W1.--F1 

£,-'68 H6 = £788--E.l 

£778 IF R5 > R6 GOTO £838 

£788 IF R5 > 988 GOTO £818 

£798 Tl = R5 

£388 GOTO £858 

£818 Tl = 988 

£8£8 GOTO £858 

£838 IF R6 > 988 GOTO £818 

£848 Tl = fib 

£858 T£ = Tl *■ El 

£868 PRINT "SURU1U0R ANNUITY TO CHILDREN OF EMPLOYEE" 

£878 PRINT USING £888?Ti?T£ 

£8,88 s EACH CHILD £####.##? T8TRL CHILDREN ANNUITY £####.## 

£988 PRINT 

£918 PRINT "DO YOU WISH TO PROJECT ANOTHER RETIREMENT DATE" 

£911 PRINT "YES TYPE 1 NO TYPE 8" 

£91£ INPUT T9 

£913 PRINT 

£914 IF T9 = 8 GGT8 £968 

£915 PRINT "ENTER RETIREMENT DATE" 

£9£8 INPUT Ml ? Dl .-Yl 

£938 PRINT 

£948 B3 = FND CM1?D1?Y1} 

£958 GOTO 1618 

£968 STOP 

£978 DATA 8? 31 5 59? 98? 1£8? 151 

£988 DATA 181 ? £1£? £43? £73? 384? 334 

£998 END 
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SAVINGS: 

DESCRIPTION 

This program computes the amount of money an investment will accumulate 
over a period of years, given the interest rate, compounding period and the 
type of investment. 



USEES. 

Anyone who invests or saves money will find this program can help in de- 
termining the most advantageous place to invest your money. This would include 
homeowners, businessmen and companies, as well as anyone who has a savings 
account. 



INSTRUCTIONS 

After the program has been loaded into memory type RUN. The program will 
then print out a full set of user instructions. 



LIM ITATI O N S 

This program should execute in any Basic speaking computer with 3K available 
memory. Two kilo Bytes are required for program storage and Savings should 
execute without incident in most 4K Basic compilers. 
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188 PRINT 

116 PRINT " THIS PROGRAM CALCULATES THE-" FlMOUNT OF MONEY THRT" 

i£8 PRINT "WOULD ACCUMULATE AFTER m YEARS AT AN ANNUAL INTEREST" 

130 PRINT "RATE R COMPOUNDED T TIMES PER YEAR? WHEN THE INITIAL" 

14@ PRINT "AMOUNT IS P AND AN AMOUNT D IS ADDED AT THE BEGINNING" 

ISO PRINT "OP EACH SUBSEQUENT YEAR. NOTE THAT P AND D ARE GIUEN" 

ISO PRINT "IN DOLLARS? N AND T MUST BE INTEGERS? AND R IS GIUEN" 

170 PRINT "AS A PERCENTAGE." 

ISO PRINT 

ISO PRINT "WHAT ARE P?D?N?T ? R"? 

£00 INPUT L?IT?Y?Y,?A 

£10 IF Y<>8 THEN £58 

££8 PRINT 

£30 PRINT "Y, MUST NOT EQUAL. ZERO..." 

£40 GOTO 188 

£58 LET D=0 

£60 LET B=„8L*A 

£78 LET S=L 

£88 LET B=8 

£98 LET S=L 

388 FOR Z=i TO Y 

318 LET S=S+D 

3£8 FOR H=I TO Y. 

338 LET S=S«(i+B--Y) 

348 NEXT W 

358 LET B=N 

368 NEXT Z 

378 PRINT 

388 PRINT " AFTER "?Y? "YEARS? "? L? "DOLLARS IN" JESTED AT"?A 

398 PRINT " PERCENT COMPOUNDED " 5 Y? "TIMES PER YEAR? WITH THE" 

488 PRINT " ADDITION OF "? N? "DOLLARS PER YEAR? YIELDS A TOTAL" 

418 PRINT " OF "?S? "DOLLARS." 

4 £8 PRINT 

438 PRINT "MORE DATA ( 1=YES? 8=NCH "j 

448 INPUT I 

458 IF 1=1 THEN 198 

9999 END 
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r roup ' 

,„, „.. ..™™ ( ,- ...... 


'T ; 


Kri 1 !::.. I ■::• 

■DEPOSIT! 




SOLUTION 

RUN 





r. . 1 I,...! ill 



L . Ti iTRI AAOIIHT OF" F1MNF;Y TI-IHT Nil L. AFE-ip ACFJJNULATED HF IFF' 

ION LITTH FT! IMITIhL niPESniENT OF" $6000. THE INTEREST 
POUNDED F'OUR TINES PER YEAR. RN fiTIDITIOMFlL SPOA ! IfiS 'BEEN 



"■"{ 'i'"(Kn 



=in:d fourth years 



T ljtc, ppppppM ff~\\..r\ ILiTT'FS THE: iiNOUriT OF MONEY T! IRT HO! Hi) FiCCUMULHTE AFTER 

^"Yir^pcT hj' h! i RNNHPF. INTEREST RATE P CAFIFTiLIFiDED 1 TINES PER YEAR? WHEN 

■ TH p' TMJTTAI.. A!""iOUI'-IT' IS P FlN'D AN AIIFiNMT D l'-i ADDED AT THE BEG I UH I NO OF 
rHCtl'sMbyEQilFliT'Y^.Rr:". NOTE THAT P AND D PRE GlTETs IN DOLLARS? N AND T 



-.11 1CT 



■r-iTi-'r:.rp:-;, OND P IS GO'EN AS A PERCENTAGE 



f -IF TEA F Y!;i-!R'-,! 
PER 'A: HP? ! 



rpip iyiLLHU: I ; p HE. A F !' .! AT A PERCENT FPNPOUUDED 4 TINES 

]}\\ }\\i pDD'NIfH! '"iF --'OF! DO! I APS PER YEAR? YIELDS A TOTAL 

;-iP'-iH. i-.i--ip in il L.HRP 






■lURE DATA (1=YES 



AFTEF ! 4 YEARS j AAAF! TJOL I FiFlS I IT JESTED FIT & F1FPCEIIT COMPOUNDED 4 TINES; 

P£p' v'FFlP' UITH THE ADDITION OF A 'DOI LAPS PER YEAR? YIE! DS A TOTAL 

OF 7fc i 3 . 9 i 3 DOLLARS, 

MORE DATA (i=YES? O-HA) ?1. 

!.ij-|f |T AF'E' F' ? I) ? t i EI 5 P ?0 ? F'AO ? 4 ? 4 ? 6 



C| FT r-D ,! 

pre 



4 rt..Hi-: 



[jiji ! APS liiUESTET! FiT 6 PERCENT COMPOLiiTDED 4 T 



FEAR? NITH THE, ADD IT I OH OF 



Tin I... LARS PER 'FEAR? PTELDS A 1 0TA1. 



OF 



..i L I-!*- 



NOPE DATA !l=YES? : ~AA) ?1 

UHAT SEE P ? D ? N ? T ? R PAOOO ? £08 ? 4 ? 1 ? A . AS 

PETER 4 'FEARS? A800 DOLLARS INFESTED AT A, PS PERCENT' COMPOUNDED 4 

-]-j|viirc, pjrp YEAR? I.'-!IT!-I THE FI.DTJ I T T OM OF" AAA DO! LAPS PER YEAR? YIELDS 

f! TATA! OF 8007=977 DOLLARS 

MOPE DATA EE-"YE:S? 0"NOi ?S 
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SBA: 

DESCRIPTION 

SBA calculates a loan repayment schedule for "Small Business Administration 1 
loans. The printout covers the entire period of the loan utilizing a tabular 
format for the various categories and provides a comprehensive yearly 
summary statement. 



USERS 

Businessmen who are interested in obtaining SBA funds for use in their business 
will find this program very informative and far less costly to use than an 
accountant. As small businesses are measured in terms of dollar income per 
operating unit, this means that even large companies may be able to obtain 
SBA loans for thier various offices around the country. 



INSTRUCTIONS 

The program is self prompting but should be listed for detailed input inst- 
ructions. After it is loaded into memory and listed, if desired, type RUN. 



LIMITATIONS 

Line 340 contains a DEF FNX ( ) statement, line 380 an ABS ( ) statement, 
line 630 a Change statement, line 650 a FNEND statement and line 1180 a TAB 
( ) statement. Some of these statements may not be in your Basic compiler but 
if you have an 8K version of Basic these statements may easily be converted 
to your compiler's statements. Statement definitions are shown in appendix 
A at the end of Volume II. The source code for SBA requires 5K Bytes for 
storage and will execute in 6K Bytes of memory. 
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1.-T1PEM DESCRIPTION-- u. IMPUTES AND PRINTS H MONTHLY PAYMENTS 
iiuREM SCHEDULE FOR fl SNALi. BUSINESS ADMINISTRATION LOAM. 

1 4t ; iPFri 

j=ICHPFM AT THF EMI'i OF E'RCH CALENDAR YEAR AMD AT THE FINAL RETIREMENT 

i^.RPFM HF THE ! rifiri IT PRINTS A COiiPPEHENS I UE SUMMARY STATEMENT 

178REM GIUING THE BEGINNING PRINCIPAL ? ENDING PRINCIPAL,* PRINCIPAL 

180REN REPAYMENTS MADE? AND TOTAL INTEREST PAID DURING THE YEAR. 

] 9RREM 

£0OREN THE PROGRAM ASSUMES THAT THE BRNK SERUICE FEE MILL BE 

EISEEM REIMBURSED BY THE SEA, 

p:-:i~iPFM 

paflpphi TNc;TR!!r;TTnHF — Tff I F;E THE PROGRAM TYPE: 'RUN 5 . 

350REM INPUT DATA LULL BE REQUESTED 

E60REM 

E88REM 

oqg PRINT "PLEASE LIST THIS PROGRAM FOR INSTRUCTIONS." 

300 PRINT 

BIO DIM MSllEO 



330REM FUNCTION FOP PRINTING IN A DOLLARS AND CENTS FORMAT 
340 DEF FHPCP1 ?P5) 

359 LET PO=0 

360 LET FNP=P1 

370 IF P1>=0 THEN 400 
380 LET FT =ABSi:P3 ) 
390 LET P0=! 

395REM NUMBER OF DIGITS LEFT OF DECIMAL POINT 
40© LET P9=? 

405REM NUMBER OF DECIMALS 
410 LET P8=£ 
4£0 LET P(0) = f-'9+P8+l 
430 LET PS = INT(PisU10TP8:i+ .53 
44@ FOR P4 = 1T0 P8 
450 LET P3=F£~INT fPE'-H 0)*H8 
468 LET P (P9+P8+S-P4 i =P3+4o 
470 LET P£-INTfP£.^i0j 
480 NEKT P4 
490 LET PCP9+1) = 46 
500 FOR P4=l TO P9 
510 LET P3=P£"INT(P8,-T 0)^10 
5£0 LET Pip9+i~P4 3=P3+48 
530 IF P£ = 8 THEN 568 
540 LET P£ =INT tPcVltf) 
" " T! 610 
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569 IF F'8=0 THEN 600 

'57W LET PCP9+1-P<1) =4 5 

5 S0 LE'i P0=0 

590 GO TO 610 

600 LET PCP9+1-P41 = 30 

610 NEXT P4 

600 PRINT TfiB(P5-~03 ? 

630 CHRHGE P TCP$ 

640 PRINT P£? 

650 FT1ENB 

660 DATA JAN? FEE? MAR? APR? MAY? -JUN? JUL? AUG? SEP? OCT? HOU? DEC 

670 FOR Z9= 1T01S 

6S0 REFili M$i"Z93 

690 NEXT Z9 

700 DEE FN H fl ? R ) = I NT C 1 00 s ( R.-- 1 £ ) "#R+ „ 5 ) .-' 1 00 

710 PRINT "BORROWER'S NAME"? 

700 INPUT C$ 

738 PRINT "ORIGINAL PRINCIPAL"; 

740 INPUT Al 

750 LET A9=A1 

760 PRINT "SEA SHARE"? 

770 INPUT SI 

700 IE SKI THEN POO 

798 LET SI = Si-" 100 

SO© PRINT "BANK RATE"? 

S10 INPUT R3 

S£0 IF R3<1 THEN 840 

S3© LET R3=R3---100 

040 PRINT "SEA RATE"? 

950 INPUT R£ 

860 IF R£<1 THEN 88© 

870 LET R£=R£--100 

880 PRINT "LOAN DATED CMO?YR}"? 

890 INPUT M?Y 

900 LET M=M+1 

910 IF M <= 1£ THEN 940 

9£0 LET M=l 

930 LET Y=Y+1 

940 PRINT "MONTHLY PAYMENT"? 

950 IMPUTE© 

966 LET A£ = INT ( 100«A1«S1 + . 5 ) .--100 

970 PRINT "SERUICE FEEm"? 

980 INPUT S9 

990 LET S9=S9-"1£00 

1000 PRINT "FOR HOW MANY CALENDAR YEARS DO YOU WISH THE SCHEDULE"? 

1010 INPUT Y9 

10£© LET Y8 = 1 

1030 PRINT"" 

1040 PRINT " kkkssbA LOAN SCHEDULE*-:*:® 5 *" 

1050 PRINT 

I860 PRINT "BORROWER: " ? CS 
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- : T NT 

^~T H " 



'HMHUf'iT OF LOftN" 



j. i :jk< 

1 i iy 
i i£6 
i i 3@ 

1140 
i 1 5@ 

1168 
1 1 t'B 
1 1 80 
1190 

1 808 



i 


£>;fci 




~'4fl 


1 


p ^-Ti 


1 


£60 


1 


O "?Ci 


1 


z'! o k3 


1 


£90 


1 


390 


1 


31a 




3£0 



1 330 

i 34© 
1350 

1 370 
1380 
1390 
1 480 

1420 

1 4i+;.i 
1 450 
1460 
1 47y 

1480 
1 490 

1 500 

1510 

1 5 £8 
1 530 
1 540 



ppjj...|-j- "shh PART ICIPRTIOhM "5 100-81? ""■;;" 
PR INT " SBFl I r ITERE8T RATE " " ? 1 08*R£ ?"••;, " 
PRIf-lT "BANK INTEREST RATE: "? 109*93 ? "";;" 
prtnt "MDHTHL.'-i" PAYMENT; " ? 
LET E.0=FHPi E0! 17 ) 
PRINT 

PR I NT 

pp t Nj TAB ( 1 5 ) ? " BEE I NN I NG " 5 TAB C £7 J ? " I MTEREST " ? TAB ( 39 ) ? " PR I NO I PAL " 5 

ppiHT Thk i F=1 'i 5 "PFPUICE" ? TAB (63) 5 "TOTAL" 

P P t NT Tfl'H f ] Pi 1 ! " PR I NO I PAL " 5 TAB ( £7 ) j " PAYMENT ,! j TAB ( 39 ) j " REPAYMENT " j 

PP t NT TR B ! 5 1 ) ? " FEE !! j T AB ( 63 ) j " PAYMENT " 

PRINT 

L.EIT H*-*™" Hi ""hi c 

LET IE = FN I ifi£?R£) 

LET I3=FHICR3jR3) 

LET U = I£+13 

LET E1=E0-I1 

IF EK = 1. 1*81 THEN 1348 

LET E3=A3 

LET E1=E£+E3 

GO TO 1368 

LET E£=A£- I NT ( 1 88*8 l*(fil-El)+.5) ■'" 1 88 

LET E3=E1-E£ 

PRINT 

PRINT "PUT #"5N5 

PRINT M5CM) j "t " SY 

PRINT 

LET N=N+i 

LET M=M+1 






1 


cr. 


cr 


d 


1 


Fi 


6 


;i! 


J. 


sz; 


__, 


■^i 



LET 81=81+11 

LET C£=C£+P1 

PRINT "TOTAL LOAN"? 

LET Rl=FNP(flijl5) 

LET Ii=FMP(IIj£7) 

LET E1=FNP(E1j39) 

I F AB8 ( E8-E 1 - 1 1 )< . 888 1 THEN i 5£8 

LET E9=FNP(E. 1 + 11*63) 

GO TO 1588 

LET E0=FNPiE0?63J 

PRINT ,! SBA SHARE"! 
LET fl£=FHP(fi£? 15) 
LET I£=FNPiT£ ? £7) 
LET E£=FNP(E£j39) 
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1 380 LET 33= I NT f S9 w A£ s; i 08+ . 3 ) ••-' 1 8W 

1590 LET SS=FNPf-S£j?i ) 

1 609 LET L8=F MP t E£h I £+83 , 63 ) 

16i@ PRINT 

1650 PRINT" RANK SHARE "5 

1 639 LET A3=FNP i A3 ? 1 5 ) 

1640 LET I3=FNPCI3jc:7'J 
J 650 LET E3=h HP f E3? 39) 
1660 LET 8£=FNPC~S£ ? 51} 
1678 LET E7--FNP f E3+I3+S£?63) 
16S0 PRINT 

1690 IF MOi£ THEN 1380 
1703 PRINT 

1720 LET N=l 

1733 LET Y=Y+1 

1743 PRINT 

1 758 PR I NT " FOR " 5 Y- 1 ? " : " 

1P60 LET Tl=£3 

1770 F'PINT " BEGINNING PRINCIPAL" 

1730 LET H9=ENP(R9 ? T11 

1793 PRINT 

1800 PRINT " ENIUNG PRINCIPAL"? 

1310 LET R8=Ri-F.l 

18£0 IF flS>=0 THEN 1 840 

1830 LET R8=0 

1340 LET fl8=FNPCfl8 ? Ti;i 

1858 PRINT 

1868 PRINT' ! PRINCIPAL REPAYMENT"; 

1870 LET C£=FNPtC£jTl) 

1880 PRINT 

1890 PRINT" TOTAL INTEREST PAID"; 

1900 LET C1=FNPCC1»T1) 

1918 PRINT 

19£0 IF Y8=Y9 THEN £038 

1930 LET Y8 = Y8 + 1 

1940 IF A 1=0 THEN £038 

1958 LET Ci=C£=8 

1968 LET A9=A1-E1 

1970 PRINT 

1938 LET A1=A1-E1 

1998 IF A 1=8 THEN 1788 

£888 LET A£=A£-E£ 

£810 PRINT 

£0cM liO TO i£4fci 

£838 PRINT 

£040 PRINT 

£860 END 
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PMT 



J !i ? i. r'-'-. 
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FOP 1 97R ' 

BEG I MH I AG PR ]' MC I PAL 30008 . OO 

Erili I AG PR I AC I PAL. ,;:'9006 . 63 

PRINCIPAL REPAYMENT 943* 37 

TOTAL. I MTERE ST PR I B 356 . 63 
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TIC TAC: 

DE S CRIPT I ON 

This is a computer simulation of the game TIC TAC TOE. The game is played 
on a standard 3x3 board. The computer randomly selects who will make the 
first play and is your opponent. This is a very simple version of a very 
old, old game and con provide hours of entertainment for both the novice 
player and the expert. 



USER? 

This is a very good starter game for the novice computer game player and its 
a nice change of pace for the expert who has been frustrated by a few of the 
more complex games. 



INS T R UCTI O NS 

Load the program into memory and type RUN. The game board will be printed 
at the beginning of the first game only. It may be necessary to keep a 
copy of the game board until its arrangement becomes familiar. To play you 
type in the number of the square where you would like to place your X. The 
computer will tell you which square it will occupy based on prior moves. 



LIMITATIONS 

Line 1030 contains a TAB ( ) statement, 1070 MAT Read, 1080 MAT C = ZER 
and 1090 MAT B = ZER. This program uses two dimensional arrays for operation; 
see line 1060. The source code stores in 2 Bytes of memory and the program 
will execute in 3K Bytes of memory, excluding the space required for your 
Basic compiler. TIC TAC should execute in most 8K Basics with little or no 
problems. 
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TICl Hi" 



1820 PPJriT 

1830 PRINT TAB CI 6 i i "1 2 3" 

194m PRINT TAB (1 6) ? "S 9 4" 

I 8 58 PR I NT TAB C i 6 j ? " 7 6 5 " 

1 960 D I M T ( 8 ? 3 ) ? U f 3 ? 4 1 < C ( 9 J ? B i 9 ) 

1970 MPT READ T?U 

1080 MAT C=ZER 

1 890 MAT B--ZER 

1 1 00 N=0 

1119 IF RND ( - 1 K ■ 5 THEN 1 1 50 

II 20 PRINT "I NILE MOUE FIRST" 
1130 PRINT 

1 1 40 GOTO 1 380 

1150 PRINT "YOU WILL MO"F FIRST" 

1160 PRINT 

1170 PRINT "YOUR NONE" 

1130 INPUT M 

1 i 98 F=- 1 

1 £ 00 IF M< > I NT IN) THEN 1 368 

1810 IF M<1 THEM 1360 

1220 IF M>9 THEN 1368 

1830 IF BCM3 08 THEN 1368 

1840 BCM)=F 

1850 FOR J=l TO 4 

1368 P=UCN?Jj 

1870 IF P=0 THEN 1318 

1288 OCP}=C(P)+F 

1898 IF GtP}=-3 THEN 1498 

1300 IF 8(P)=3 THEN 1428 

1310 NEXT J 

1320 N=N+1 

1338 IF N=9 THEN 1518 

1348 IF F=l THEM 1178 

1358 GOTO 1388 

1360 PRINT "ILLEGAL MOUE — TRY AGAIN" 

1378 GOTO 1170 

1380 GOSUB 1530 

1390 PRINT " I MOUE TO "sM 

1400 F=l 

1410 GOTO 1840 

1488 PR I NT "AND I NIN" 

14 30 PRINT 

1448 PRINT 

1458 PRINT "ANOTHER GAME"? 

1468 INPUT flU 

1470 IF LEWfll£}=3 THEN 1888 
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1 48@ 
1 490 

1 500 
■| i=; i pi 

1 5 S3 

1 550 

1. ■■-.' ! ..""~ ! 

1 570 
1 580 
1590 

I 600 

1 b i y 
1 680 
1630 
1640 
1 650 
1660 
1 670 
1 680 
1 690 

1 700 

1710 
1720 
1739 
1 740 
1 750 
1760 
1 ,-'70 
1780 
1 790 
1 880 
1810 
1 888 
1838 



STOP 

PRINT "CONGRATULATIONS * YOU BERT ME" 

GOTO 1 430 

PRINT "THIS GAME IS fi DRAW" 

GOTO 1 430 

FOR P=i TO 8 

IF CI Pi =8 THEM 1688 

NEXT P 

FOR P=i TO 8 

IP Ci:p)=-£ THEN 1608 

NEXT P 

GOTO 1648 

FOR 1=1 TO 3 

f'i=T (Pj i;i 

IF B CM i=0 THEN 1790 

NEXT I 

FOR S=i TO 9 

UCS)=0 

IF BCSTOO THEN 1780 

FOR J=l TO 4 

P=Ul"S5.J) 

IF P=8 THEN 1710 
U ( S 3 =U ( 8 3 + 1 + A BS ( C i P ) ) 
NEXT J 
NEXT S 

U=0 

FOR S=i TO 9 

IF UfSX=U THEN 1738 

U=U CSJ 

NEXT S 

RETURN 

DATA 1 * c! j 3 ? 8 5 9 ? 4 ? 7 ? 6 ? 5 ? 1 * 8 ? 7 ? £ ? 9 ? 6 ? 3 j 4 ? 5 ? 1 ? 9 ? 5 ? 

BATA 1 s 4? 7? 0? 1 ? 5? 0? 0? i ? 6* 8? 8? £? 6 ? 8? 8? 3? 6? 7? 0? 3? 

DATA 3 j 4 ? 8 ? 8 ? £ j 4 * * « £ * "^ * 7 ' P- 

END 



i ! ?.< ■;• 

5 J 5 fi 
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TICTFlf: 



-TIC THC TOE 



! II. 



L.L MOUE FIRST 



i'OUR r!00E?3 

I HOME TO 
('OUR NOME??' 

I i-iouL in 
f'OUR moue-"-?: 

I NOME TO 
i'OUR M0UE7S 

I lHJl'E TO 
f'OUE MQi.iE?8 
THIS GfiME IS H JiRFlU 



ANOTHER GflMETMO 
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RELIABLE COMPUTER SOFTWARE 




FOR YOUR DOWN TO EARTH TASKS 



SCIENTIFIC RFSEARCH INST. 



Crofton, Maryland 



BASIC SOFTWARE LIBRAR 



